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PADROES NATURAIS 



A utilizacao do microcomputador na reproducao 
de padroes da natureza. Familias de curvas. En- 
voltorias. Focos e cuspides. Teoria das catastro- 
fes. Padroes formados por pontos. Simulacao do 
fenomeno da ressonancia. Caos. Dinairiiica de po- 
pulacoGS 1161 



AVALANCHE: OS SALTOS DE WILLIE 



As quatro partes da rotina de salto. Salto vertical 
e salto diagonal. Efeitos sonoros que acompanhann 
a retina. Ajustamento dos apontadores de tela, 
Willie esta subindo. A figura no ar. De volta ao so- 
lo. Fim do salto 1168 



MODELOS DA REALIDADE 



Modelos iconicos, an^logos e sinnb6licos. Incerte- 
zas. Comportamento aleat6rio e probabilidade. Va- 
ri^veis aleatorias. SinnulacSes. Distribuicao unifor- 
nne. Distribuicao normal. Distribuicao exponencial. 
Comparagao de eventos '. 1176 




PLANO DA OBRA 

"INPUT" e uma obra editada em tasciculos semanais, e cada 
CO nj unto de 15 fasdculos compoe um volume. A capa para enca- 
dernagao de cada volume estara a venda oportunamente 

COMPLETE SUA COLEgAO 

Exemplares atrasados, ate seis meses apos o encerramento da colegao, pode- 
rao ser comprados, a prefos atualizados, da seguinte forma: 1. PESSOAb 
MENTE — Por meiodeseujornaleirooudirigindo-seaodistribuidor local, 
cu jo endere?o podera ser facilmente cotiseguido j unio a qualquer jornakiro 
de sua cidade. Em Sao Paulo, os enderegos sao: rua Brigadeiro Tobias, 773, 
Centre; avenida Industrial, 117, Santo Andrt; e no Rio de Janeiro: avenida 
Mem deSa, 191/193, Centre. 2. POR CARTA — Poderaoser solicitados exem- 
plares atrasados tambem por carta, que deve ser enviada para DINAP — Dis- 
tri bu idora Nacional de Pu blica?6es — Numeros Atrasados -— Estrada Vel ha 
de Osasco, 1 32, Jardim Teresa — CEP 06000 — Osasco — SP. Nao envie pa- 
gamento antecipado. O atendimenio sera feiio pelo reembolso postal e o pa- 
gamento, incluindo as despesas postais, devera ser efetuado ao se retirar a en- 
comendana agenda do Correio. 3. POR TELEX — Utilize o n? (01 1) 33 670 
DNAP. 

Em Portugal, os pedidos devem ser feitos a Distribuidora Jardim de Publica- 
foes, Lda. — Qta. Pau Varais, AzinhagadeFetais — 2 685,Camarate — Lis- 
boa; Apartado 57 — Telex 43 069 JARLIS P. 

Aten^o: Ap6s seis meses do encerramento da cole<;ao, os pedidos serao aten- 
didos dependendo da disponibilidade do esloque. 

Obs.; Quando pedir livros, mencione sempre titulo e/ou autor da obra, alem 
do numero da edii;ao. 

COLABORE CONOSCO 

Encaminheseuscomentarios, criticas, sugestoes ou reclamacoes 
ao Servi(;o de Atendimento ao Leitor — Caixa Postal 9442, 
Sao Paulo — SR 
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R(VDROES 
NATURAIS 



FAMILIAS DE CURVAS 
ENVOLTORIAS 



FOCOS E CUSPIDES 



___ PADR6ES DE PON TOS 
DINAMICA DE PQPULACOeS 



Com rotinas grMicas muHo simpfes, 
podemos criar uma vari«dade 
surpfeenderite de desenhos - todos 
eles estruturados a partif de padrdes 
fornecidos pela natureza. 

A utiUzagao do computador para de- 
senhar a trajetbria de objetos em queda 
livre sob a a^ao da gravidade fol exami- 
nada nos artigos publicados nas pdginas 
766 e 781. Com os programas apresen- 
tados. ilustramos alguns aspectos de um 
velho ramo da Fi'sica chamado dinami- 
ca e vimos como trafar parabolas, cir- 
culos e elipses. Neste artigo, aprendere- 
mos a descnhar outros tipos de curva 
usando tecnicas semethantes. Rotinas 
graficas bastante simples se encarrega- 
rao dessa tarefa. 

Nos ultimos anos, a dinamica rece- 
beu um novo impulso enquanto campo 
de pesquisa. Um dos motivos para isso 
foi o reconhecimento de que seus prin- 
cfpios matem^ticos nao se aplicam so- 
mente ao movimento dos corpos sob a 
agao de determinadas for^as. Cientistas 
6pticos, interessados na refragao da luz 
das estrelas na atmosfera, quimicos in- 
dustriais que estudam o desencadeamen- 
to de reagSes e bidlqgos preocupados 
com o cresciaiento de populafoes ani- 
mais que competem entre si — todos 
tern recorrido aos conhecimentos acu- 
mulados por esse ramo da Fisica. Alem 
disso, OS computadores — permittndo 
a repetifao rSpida de operai;6es elemen- 
tares — favoreceram a revelagao de fun- 
goes de uma complexidade estrutural 
que OS antigos m^todos de cilculo se- 
quer sugeriam. Com freqiiSncia, um pa- 
drao ou curva tem que ser repetido inii- 
meras vezes antes que possamos notar 
a presen^a de uma estrutura subjacen- 
te. Os programas abaixo demonstram 
isso. 



FAMILIAS DE CURVAS 



Algumas curvas, isoladamente sim- 
ples, criam padrdes bastante complexos 
quando sao reunidas, constituindo uma 
familia. Veja um exempio em que se uti- 
lizam parabolas. 




130 KEXT N 



5 LET AS-"": FOR N-1 TO 64: 
LET AS-AS-t-" "; NEXT N 

10 BRIGHT 1: BORDER 0; INK S: 
PAPER 0- CLS 

20 LET KMAX-al 

30 LET DELT-.05 

40 LET SX^170/'SQB 3: LET SY- 

175 

50 FOR N=l TO NMAX 

60 LET A=PI*t-l+2*N/NMAX) 

?0 PLOT 128,80 

80 FOR T=0 TO 3 STEP DELT 

90 LET X=T"C03 A: LET Y=T* ( 

SIN A-T/2) 
100 IF ¥<=-.4 THEN GOTO 120 
ilO LET DX=SX*X+128: LET Dy=S¥ 
«¥+80 

111 IF DX<0 OR DX>255 OH Dy<0 
OR Oy>175 THEM GOTO 120 
115 DRAW DX-PEEK 23677 ,DY-PEEK 
23678 

117 PRINT AT 19,0;AS 
120 NEXT T 



m 



10 COLOR 15,1.1: SCREEN 2 

20 NM=ai:PI-4*ATN<lJ 

30 DE=.05 

40 SX=160/SQfl(3} :Slf-230 

50 FOR N=l TO NM 

60 A-PI*(-1+2*N/NM) 

70 DRAW''BM127,118" 

BO FOR T=0 TO 3 STEP DE 

90 X-T*COS(A) :Y-T*CSIN(A)-T/2) 

100 IF Y>-.4 THEN LINE- tSX«X+12 

7,118-3Y*¥) ELSE T=3 

110 TEXT T 

120 NEXT N 

130 GOTO 130 

10 HGR2 
20 NM - 81:P1 
30 DE - .05 
40 SX - 160 / 
50 FOR N = 1 



- 4 * ATiJ (1) 

SQR 13) :SY » 180 
TO NK 



60 A - PI * { - 1 + 2 * N / NM) 

70 BCOLOH- 3:X1 - 139:Y1 ■= 118 

80 FOB T - TO 3 STEP DE 

90 X - T * COS (A) :Y - T * ( S 

IN (A] - T / 2) 

100 IF Y > - 

XI, Yl TO SX • X 

* Y:X1 - SX « X 

- SY « Y: GOTO 110 

105 T - 3 

110 NEXT T 

120 NEXT N 



35 THEN HPLOT 
+ 139.118 - SY 
+ 139:Y1 - lie 



D 



10 PMODE 4,lrPCLS 1: SCREEN 1,0 

20 NM-8i:PI=4*ATN(l) 

30 DE=.05 

40 SX-160/SQR(3) :SY-230 

50 FOR N=l TO NM 

60 A=PI*(-1+2*N/NM) 

70 DRAW''BM127.1ie" 

80 FOR T=0 TO 3 STEP DE 

90 X-T*COS(A) :Y-T«(SIN(A)-T/2) 

100 IF Y>-.4 THEN LINE- tSX*X+12 




7. 118-SY*y) .PRESET ELSE T=3 
110 NEXT T 
120 NEXT N 
130 GOTO 130 

O programa Simula as trajet6rias de 
jatos de agua langados por um esguicho 
de jardim, ou, em uma interpretavao 
mais moderna, de neutrons lan(;ados de 
um tubo fino ligado a um reator. Em 
ambos os casos, a familia de curvas e 
constituida por todas as trajet6rias pa- 
rabblicas que emergem no mesmo pon- 
10, em dire^oes variadas mas com a mes- 
ma velocidade. O padrao formado por 
essa familia ^ a curva exterior que to- 
das as curvas tocam. A curva exterior, 
chamada de envoltoria, e tambem, nes- 
te caso, uma parAbola. Em balistica, 
usa-se o termo pardboJa limitante para 
uma curva desse tipo, pois ela dfefine os 
iimites da regjao que pode ser alcanna- 
da por projdtCLs que tenham uma deter- 
minada velocidade inicia!. 

£ importante notar que a envoll6ria 
d uma propriedade da familia de curvas 
como um lodo, nao tendo nenhum sig- 
nificado para uma trajetoria em parti- 
cular. Trata-se de um bom exempio de 
que o codo pode ser mais do que a sim- 
ples soma de suas partes. 

No programa, a equa^ao das curvas 
aparece na linha 90. X ^ a distancia ho- 
rizontal; Y, a distancia vertical; T cor- 
responde ao tempo (comecando por ze- 
ro no instante do lancamento) e cada 
trajetdria tern uma direijao determina- 
da por A, o angulo ou incLnapao do lan- 
Camento. O programa desenha NMAX 
ou NM inclinagoes; tente mudar o va- 
lor dessa variavei na linha 20. 



FOCOS E CUSPIDES 



Este programa mostra como tambem 
as linhas retas podem constituir familias 
com envolt6rias interessantes. 



1 BORDER : INK 7 •. PAPER : 

CLS : LET N-2 

30 LET VO-eO/N/N 

40 PLOT 0.-6-X0«2 

50 FOB X-0 TO 255 STEP 2 

60 LET Y-169-5(0-X0*CC)S {N*2* 

Pr«X/255) 

70 DRAW X-PEEK 23677, 175-y- 

PEEK 23678 

80 iET XT-X+2*yO«N«PI«¥/255* 

SIN (N*2*PI«X/255) 

85 LET yl-0: IF XT<0 THEN 
LET XT-0: LET Y1-Y+255*X/ t2*N 
*PI*VO*SIN (N«2*PI*X/255) } 

86 IF XT>255 THEN LET XT-255 
; LET Yl-Y-(255-X)*255/(2*N* 
PI*YO*STN (K«2'«PI*X/255) > 



90 DRAW XT-PEEK 23677 , 175-Yl- 

PEEK 23678 
100 PLOT X,175-Y 
110 NEXT X 
120 GOTO 120 



m 



10 COLOR 15,1. 1: SCREEN 2 

20 N-2:PI-4*ATN(1) 

30 yO-80/N/N 

40 DaAW"BM0,"+STH3tINTtl86-Y0*2 

)) 

30 FOR X-0 TO 255 STEP 2 

60 y=186-Y0-Y0*COS(N*2«PI*X/255 

) 

70 LINE -{X.Yl 

eo XT-X+2«Y0*N*PI*Y/2rj.'J*SIN(N*2 

*PI*X/255} 

85 Yl-OrIF XT<0 THEN XT-0:Y1-Y+ 
2 55«X/ (Z*N*PI*Y0*SIN(N*2*Pl*X/2 
55) ) 

86 IF XT>25S THEN XT-255 :Y1-Y- ( 
255-X) *255/ tZ*N*PI*Y0*SINtN*2*P 
I*X/255)) 

90 LINE -(XT, YD 

100 DRAW-BH-'+3Ta3{X)+","+9TBS(l 

NT(Y)) 

110 NEXT 

120 GOTO 120 



H][S] 



10 HGR2 




20 N - 2:PI - 4 * ATN (1) 




30 YO - 80 / N / N 




40 HCOLOE- 3:XX •= : YY - 


166 - 


YO « 2 




50 FOR X - TO 2 79 STEP 


2 


60 Y ■« 186 - YO " YO * COS (N 


* 2 * PI * X / 279) 




70 HPLOT XX, YY TO X.Y 




80 XT - X + 2 * YO * N * PI « V 


/ 279 « SIN {N « 2 * PI 


* X / 


279) 




85 Yl - 0; IF XT < THEN 


XT » 


0:Y1 - y + 279 * X / (2 * 


H * P 


I * YO " SIN (N * 2 * PI 


« X / 


279)) 




86 IF XT > 279 THEN XT - 


279:Y 


1 =. Y - C279 - X) * 279 / 


(2 * 


N * PI * YO * SIN CN * 2 


« PI 


* X / 279) > 




90 HPLOT X,y TO XT,Y1 




100 XX - X:VY - Y 




110 NEXT 





D 



10 PMODE 4.1 :PCLS1: SCREEN 1,0 

20 N'=2:PI-4*ATNC1) 

30 Y0-80/N/N 

40 DRAW"BM0."+STR$(INT(ie6-Y0«2 

)) 

50 FOB X=0 TO 255 STEP 2 

60 Y-ie6-Y0-Y0*COS(N*2«PI*X/255 

) 

70 LINE -(X,Y) ,PSET 

80 XT=X+2*Y0*N*PI*Y/255*SIN(N«2 

*PI*X/255) 

85 Y1-0:IF XT<0 THEN XT-OjYZ-Y* 

255*X/ (2*N*PI*Y0*SIN(N*2*PI*X/2 

55)) 

96 IF XT>255 THEN XT-255 : Yl-Y- ( 



255-X) *255/(2*N«PI*Y0*SINCN*2*P 

I*X/255)) 

90 LINE - (XT, YQ) .PRESET 

100 DRAW"BM" + STH$(X)+" ,''+STa5(I 

NT(Y)) 

110 NEXT 

120 GOTO 120 

O programa simula o reflexo de raios 
de luz sobre uma superficie ondulada — 
como o sol batendo nas aguas de uma 
lagoa. Esta familia e composta somen- 
te por linhas retas, que formam angu- 
los ret OS com uma curva senbide, A en- 
voll6ria consiste na curva constituida 
pelos pontos focais. Estes, no caso dos 
raios, sSo mais intensos nos vales da se- 
ndide, onde a envoltdria tern pontos bri- 
Ihanies chamados ctispides. A existen- 
cia de ciispides pode ser prevista atra- 
v^s de um novo ramo da MatemAtica de- 
nominado Teoria das Caidstrofes (esse 
nome dramitico vem da aplicagao da 
teoria ao desabamento de pontes c em- 
borca<pao de navios). 

No programa, a senoide e especifica- 
da na linha 60 e os raios de luz, na 80. 
O niimero de vales da sen6ide e N (me- 
nos no Apple). Tente mudar o valor de 
N na linha 20 (recomendamos N = 1 ). 

Senoides tambem podem constituir 
uma familia de curvas. Veja o progra- 
ma apresentado a seguir. 



10 BORDER 0: PAPER 0: INK 7: 

CLS 

20 LET QM-SQH (2*LN (3J) 

30 FOR Q=-QM TO QM*1.001 STEP 

QM/30 

40 PLOT 0,75+Q*75/QM 

50 FOR T-0 TO 3*PI STEP .2 

60 LET X-Q*COS (EXP (-Q^Q/Z)* 

T) 

70 DRAW {T*240/3/PI)-PEEK 

23577, 75+[X«75/QM}-PEEK 23678 

80 NEXT T 

90 NEXT Q 



Wi 



10 COLOR 15,1, 1: SCREEN 2 

20 QM-SQR (2*LOG(3) ) :PI-4*ATN(1) 

30 FOB (J--aM TO QM*1.001 STEP Q 

M/30 

40 DRAW "BMO. '•+STRS(INTC100-Q*9 

0/QM)) 

50 FOE T-0 TO 3*PI STEP .2 

60 X=U«C0S{EXP(-«*Q/2)*T) 

70 LINE-(T*240/3/PI.100-X*90/QM 

) 

80 NEXT T 

90 NEXT Q 

100 GOTO 100 



10 HGR2 

20 Qrt - SQB (2 

- 4 * ATN (4) 



« LOG (3)): PI 



30 FOH Q - - QM TO QM * l.OOl 

STEP QM / 30 
40 HCOLOR- 3:X1 - 0:Y1 - 100 - 

Q * 90 / QM 
SO FOR T - TO 3.5 * PI STEP 
.2 
60 X « Q * COS ( EXP ( - * Q 

/ 2) * T) 
70 HPLOT XI, ¥1 TO T « 240 / 3 
/ PI, 100 - X * 90 / QM:X1 - T * 

240 / 3 / PI:Y1 - 100 - X * 90 

/ QM 
80 NEXT T 
90 NEXT Q 

□ 

10 PMODE 4.I1PCLS 1: SCREEN 1,0 

20 0^S=SQR(2•LOG(3>) iPI'4*ATN(l) 

30 FOR Q=-QM TO Q«*1.001 STEP Q 

M/30 

40 DRAWBMO, " + STH$ {INT £100-0*90 

/QM)) 

SO FOR T-0 TO 3*PI STEP .2 

60 X=Q*C0S(EXP<-Q*Q/2}*T) 

70 LINE - tT*240/3/PI.lOO-X*90/Q 

M) .PRESET 

BO NEXT T 

90 NEXT 

100 GOTO 100 

Simulamos aqui raios de luz atraves- 
sando uma fibra bptica cujo indice de 
refrafio varia ao longo de sua largura. 
Em uma escala microscopica, poderia- 
mos estar representando tambem "tra- 
jetorias" de eletrons entre dois pianos 
de dtomos de um cristaJ colocado sob o 
canhao de um microscdpio eletrdnico. 
A familia e coraposta por sen6ides que 
comegani no canto esquerdo do video, 
paralelas umas cis outras; o periodo de 
cada curva depeiide de sua posifao ini- 
cial. Embora esta familia seja bem di- 
ferente da anterior, a envolt6ria tambem 
tem focQS e ciispides. 

No programa, as 6rbitas sao especi- 



ficadas na linha 60, que contem a dis- 
tSncia X do eixo principal no tempo T. 
As sendides sio definidas por Q. Como 
esta, o programa desenha trinta sen6i- 
des; para obter um numero maior ou 
menor, modifique a linha 30, 



padrOe$ de PONTOS. 



Juntar curvas em familias nao e a 
linica maneira de obter padroes interes- 
santes. Um outro caminho e seguir uma 
6rbita por um longo tempo, de modo 
que uma estrutura complexa possa se re- 
velar, ainda que a f6rmu!a matematica 
da curva seja relativamente simples. Pa- 
ra desenhar esse tipo de curva, nao de- 
vemos fazer um tragado continuo, pois, 
ap6s alguns segundos, teremos preenchi- 
do a tela com um emaranhado de cur- 
vas. O mais conveniente e traijar a 6rbi- 
ta por meio de ponlos, dispostos na te- 
la a intervalos regulares — como se a 
trajetdria fosse observada sob luz estro- 
boscdpica. Os tres programas seguintes 
exemplificam essa ttenica. A posiijao 
dos pontos na tela nem sempre equiva- 
k a posi?ao real do objeto de estudo; o 
que o programa fornece, muitas vezes, 
e uma representagao abstrata, na qual 
a coordenada horizontal corresponde a 
posigao real e a coordenada vertical, a 
velocidade. 

Este programa leva vdrios minutos 
para completar o desenho: 



10 BOBDEB 0: PAPER 0: INK 7: 

CLS 

30 LET \-76.11 

40 LET ALF="A*PI/180: LET C= 

COS (ALF) 

50 LET S=SIN (ALF) 



60 LET NMAX-200 

70 LET M-52 

80 FOB J-1 TO M 

90 LET X-0; LET Y-J/M 
100 FOB N=l TO NMAX 
110 LET W=X 

120 LET X-X*C-(y-X*X)*S: LET Y 
=W*S+CY-U*W)*C 

130 IF ABS (X)>4 OH AB3 (Y)>4 
THEN GOTO 860 
136 IF X>1 OR Y>1 THEN GOTO 

150 
140 PLOT X*12e+128,Y*85+85 
150 NEXT N 
160 NEXT J 



m 



10 COLOR 15.1,1:SCBEEN 2 

20 A=76. 11 :PI = 4'«ATN(1) 

30 AL-A*PI/180:C=COS(AL) 

40 S=SIN(AL) 

50 NH-200 

60 M=S2 

70 FOR J=l TO M 

SO X=0:V=J/M 

90 FOR N=l TO NM 

100 W=X 

110 X=X'*C-(Y-X«X)*S:y=W*S+{Y-W* 

W)*C 

120 IF ABS(X)>4 OR ABS (Y) >4 THE 

N 160 

125 IF ABS(Y}>1 OR ABS(X)>1 THE 

N 140 

130 PSET(12B+X*128.96-Y«96) 

]40 NEXT N 

150 NEXT J 

160 GOTO 150 



aiE] 



10 HGR2 

20 A - 76.11:PI - 4 * ATN (1) 

30 AL - A * PI / 180 :C - COS ( 

AL) 

40 S = SIN (AL} 

50 MM = 200 

60 M - 52 

70 FOR J = 1 TO M 




Raios de luz em umH fibra 6ptii'a, 



"Ilhas de pontos" ou linhas de forva. 



80X=0:Y=J/M 

90 FOB N = 1 TO NH 

100 W = X 

110 X-X*C- (y-X*X) «S 

:¥-W*S+{Y-W*W>*C 

120 IF ABS (X) > 4 OR ABS (Y 

) > 4 THEN 160 

125 IF ABS (X) > 1 OB ABS (Y 

) > L THEN L40 

130 HPLOT 128 + X * 12S.96 - Y 

* 96 
14 NEXT N 
150 NEXT J 
160 GOTO 160 

D 

10 PMODE 4. 1 :PCLS1 ; SCREEN 1.0 

20 A=76. ll :i'I--4*ATN(l) 

30 AL-A*PI/180:C=CO3(AL) 

40 S=SIN{AL) 

50 NM=200 

60 M-S2 

70 FOR J=l TO M 

80 X^OrY^J/M 

90 FOR N=l TO NM 

100 W-X 

110 X=X*C-(Y-X*X)«S:Y=W''S+C>f-W* 

W) *C 

120 IF ABS(X)>4 OH ABS<YJ>4 THE 

N 160 

125 IF ABS{Y)>i OH ABS[X)>1 THE 

N 140 

IJO PRESET(128+X«128,96~Y«96) 

140 NEXT N 

150 NEXT J 

160 GOTO 160 

O programa sintula o movimento de 
paniculas subatSmicas (como prbtons e 
eleErons) em um acelerador ou, ainda, 
linhas de for^a de um campo magnet i- 
co. Sua atuatao, em termos inatemdti- 
cos, consiste em iomar uma s^rie de 
pontos iniciais e move-tos pela tela, se- 
guindo esta regra; "fa^a uma rotacao 
em torno do ceniro da tela, segundo um 
angulc fixo, s6 que com uma ligeira mo- 



difica^ao". Sem esta "ligeira modifica- 
Cao", todas as curvas seriam circulos 
concentricos — e, de fato, as mais pr6- 
ximas do centre se assemelham a circu- 
los. O efeito dessa modificacao tem 
maior impacto sobre as curvas externas, 
que acabam formando um conjunto de 
"ilhas". Se pudessemos ampiiar mais o 
desenho, distinguiriamos vdrias ilhas 
menores, distribuidas entre as que po- 
demos observar agora. 

No programa, o numero de pontos 
iniciais ^ M, na linha 60: caso voce nao 
queira esperar tanto para ver o desenho 
compieto, diminua esse valor. Cada 
ponto e desenhado NMAX ou NM ve- 
zes; o valor e especificado na linha 50. 
A regra fica nas linhas 100 e HO, que 
determinam de que modo as coordena- 
das vertical e horizontal serao modifi- 
cadas a cada repeti<;ao. O angulo fixo 
de rotafao e dado por A em graus, na 
linha 20; experimente vaJorcs diferentes 
(recomendamos 90). 

O programa apresentado a seguir ge- 
ra um padrao surpreendente, a partir de 
um ponto inicial: 



20 LET K-51.3: BORDER 0: INK 

7: PAPER 0: CLS 

30 LET X=1/PI: LET P=0 

40 LET A=l/SQft 5 

50 FOR N=l TO 10000 

60 LET ¥=X-.5: LET X-X+A-INT 

(X+A) 

70 LET P=P-Y 

60 PLOT X*255,P*K+e5 

90 NEXT N 



40 FOB N=l TO 10000 

50 Y=X-.5:X-X+A"INT(X+A) 

60 P-P-Y 

70 PSET(X«255.128-P*K) 

80 NEXT N 

90 GOTO 90 



SIS 



fffi 



10 COLOR 15.1 , 1 :SCREEN 2 
20 K-60:X-1/(4*ATN(1)) :P=0 
30 A=1/SQH(5) 



10 HGB2 :K = 40 

20 X - 1 / (4 * ATN (D) :P = 

30 A - 1 / SQE (5) 

40 FOB N = 1 TO 10000 

SO Y - X - .5rX -X+A - INT 

{X + A) 

60 P » P - Y 

70 HC010B» 3: HPLOT X * 279.10 

- P * K 

eO NEXT N 

D 

10 PMODE 4, X :PCLS1 : SCREEN 1.0: K 

= 60 

20 X-1/(4*ATN(1) ) :P=0 

30 A=1/SQR(5) 

40 FOR N=l TO 10000 

50 y=X-. 5 : X-X+A-INT (X+A) 

60 P=P-Y 

70 PRESET {X*255,128-P*K) 

BO NEXT N 

90 GOTO 90 

Esse programa e uma simulatao da 
ressonanda, que ocorre quando dois fe- 
nomenos fisicos tem freqiiencias coin- 
cidemes ou multiplas. Por exemplo, um 
dos fendmenos pode ser a orbita de um 
aster6ide em torno do sol; o segundo. 
a perturba^ao dessa 6rbita pela atragao 
gravitacional de Jupiter, Podemos nos 
perguntar: as perturbaipoes causadas pe- 
lo grande planeta serao capazes de ar- 
rancar o asteroide de sua orbita? Tudo 
depende da razao entre as duas frequ^n- 
cias (a razao e obtida dividindo-se uma 
pela outra). As particulas dos an^is de 




Uma regra simples prnduz <i caos. 



Mudait^ftii em uma poputa^ao de peixes. 



Illllllll 



PUOGUmCAO BASIC 



Saturno estao sujeitas a esse tipo de 
efeito. 

No programa, a razao 6 chamada de 
A e seu valor (menor que 1) esta na li- 
nha 30. O niimero de repettcoes da res- 
sonancia e 10000 (final da lirha 40); re- 
duza esse valor caso nao queira esperar 
muito. A transformacao da ressonancia, 
nas linhas 50 e 60, e obtida per meio de 
uma regra que modifica as posigSes ho- 
rizontal (X) e vertical (P) dos pontes na 
tela. 

Dm delicado padrao em "cortina" 6 
obtido com A = 1/SQR(5), ou seja, 
0.4472136. Como esse valor nao corres- 
ponde k razao entre dois numeros intei- 
ros (em termos do computador, trata- 
se de um niimero irracional), ele i nao- 
ressonante. Para chegar a ressonancia, 
temos que atribuir a A um valor que se- 
ja a razao entre dois niimeros inteiros 
— como 9/20, que vale 0.45. Tente tam- 
bem um outro nuimero irracional, como 
1/PI. Se quiser reduzlr a escala vertical, 
diminua o valor de K. 



Observe que certas regras simples nao 
produzem nenhum padrao. O pr6ximo 
programa ilustra o fenomeno, \ 



10 BORDER 0: PAPER 0: INK 7: 

CLS 

20 LET X-l/PI 

30 LET Y=1/PI 

40 FOB M-1 TO 100 00 

50 LET X=X+Y-INT (X+Y) 

60 LET y-X+Y-INT (X+Y3 

70 PLOT X*255,Y*175 

80 NEXT M 



nk 



10 COLOR 15,1,1: SCREEN 2 

20 PI-4*ATN(1) :X=iyPI 

30 Y-i/PI 

40 FOR M-1 TO 10000 

50 X=X+Y-1NT(X+Y) 

60 Y=X+Y-INTCX+Y) 

70 PSETCX*2S5,192-Y«191) 

SO NEXT M 

90 GOTO 90 



a] ED 




10 HCB2 




20 PI - 4 * ATN (1) :X - 


1 / PI 


30 Y - 1 / PI 




40 FOR M - 1 TO 10000 




50 X - X + Y - INT (X + 


Y) 


60 Y = X + Y - INT (X + 


yj 


70 HCOLOR- 3: HPLOT X * 


279.19 


2 - Y • 191 




^H 80 NEXT M 





D 



10 PMODE 4, 1:PCLS1: SCREEN 1.0 

20 Pr-4*ATN{1) ;X=1/PI 

30 Y-l/PI 

40 rOR M'l TO 10000 

50 X-X+Y-1NT(X+V) 

60 Y=X+y-lMT{X+Y> 

70 PRESET(X*2S5,192-y*191) 

BO NEXT M 

90 GOTO 90 



Esse programa Simula o vaiv^m erri- 
tico das bolas de um fliperama, o mo- 
vimento das moleculas de um gis, ou 
qualquer outro sistema de drbita tao im- 
previsivel que se torna impossivel distin- 
gui-la de um processo aleat6rio. Con- 
vem notar, por^m, que os 10.000 pon- 
tes desenhados na tela nao sao aleat6- 
rios, resultando da repeti<;ao de uma re- 
gra dcterministica, ou seja, que nao 
abriga nenhum elemento de acaso. A re- 
gra considera a tela como um quadra- 
ao unit^rio onde as coordenadas verti- 
cais e horizontais variam entre zero e 
um. Ela opera em ires etapas, nas linhas 
50 e 60 do programa. Primeiro, as coor- 
denadas X e Y do ultimo ponto sao so- 
madas para produzir um novo X; de- 
pois, esse X i somado a Y, resultando 
em ouCro Y; finalmente, se X ou Y fo- 
rem maiores que 1, um niimero inteiro 
apropriado e subtraido para que as 
coordenadas permane^am no Lntervalo 
valido. 



populacOes de peixes 



Como a popula^ao de peixes de um 
Jago varia ao longo das geraifoes? Isto 
depende dos fatores que condicionam as 
mudan<;as populacionais de uma gera- 
gao para a outra. Para definir uma re- 
gra, devemos considerar tanto a tenden- 
cia ao crescimento populacional resul- 
tante da reprodufio, como a tendencia 
k redugao, determinada pela quantida- 
de de alimento disponivel no lago. Con- 
forme o equihltrio estabelecido entre es- 
ses dots fatores, a populagao pode ficar 
esldvel, alternar entre um ou mais valo- 
res, ou variar de tamanho ao acaso, ao 
longo das gera^oes. 

O programa dado a seguir ilustra o 
fenomeno. A posigao horizontal, A, 
corresponde k razao entre disponibilida- 
de de alimento e taxa de natalidade, re- 
presentando assim as sucessivas gera- 
gSes. A positao vertical Y corresponde 
ao tamanho da popula^ao, que aumen- 
ta ou diminui alguns pontos conforme 
as gerafdes se sucedem. O tamanho da 
popula^ao Y s6 ^ colocado na tela quan- 
do se encontra em equilfbrio, isto e, 
quando assume um valor estdvel ou al- 
terna entre dois ou mais valores, que sao 



denominados pontos de airagao. No 
Spectrum e no TRS-Color, um som de 
freqiicncia proporcional ao tamanho da 
populafao i eroitido. 



10 BORDER 0: INK 7: PAPER 0: 

CLS 

20 LET S=.03: LET N«IN=50 : 
LET NMAX=eO 

30 FOR A-2.8 TO 4 STEP S 
40 LET Y=1/PI 
50 FOR N-1 TO NMAX 
60 LET Y'^A'^Y* tl-V) 
70 IF N>NMIN THEN PLOT 255* C 
A-2.S]/1.2,Y«17b 
SO SOUND .0075,Y*20 
90 NEXT N 
100 NEXT A 



fm 



10 COLOR 15,1.1: SCREEN 2 
20 S-1/127;NN=SO:NX=80 
30 FOB A- 2.8 TO 4 STEP S 
40 Y-.25yATN<l) 
50 FOB N-1 TO NX 
60 Y-A*Y*(1-V1 

70 IF N>NN THEN PSET t2S5* {A-2 . 8 
J/1.2,192-Y*191) 
90 NEXT N 
100 NEXT A 
110 GOTO 110 



aiEa 



10 HGR2 

20 S - 1 / 127 :NN - 50:NX = 80 

30 FOR A = 2.8 TO 4 STEP S 

40 Y " .25 / ATN (1) 

SO FOR N " 1 TO NX 

60 Y - A * Y * (1 - ¥) 

70 IF N > NN THEN HPLOT 279 * 

(A-2.8) / 1.2,192 - Y * 192 
90 NEXT N 
100 NEXT A 

D 

10 PMODE 4. 1:PCLS1: SCREEN 1.0 

20 S-l/127;NN=50rNX=80 

30 FOR A" 2. 8 TO 4 STEP S 

40 Y=.25/ATN(1) 

50 FOR N=l TO NX 

60 Y-A*Y*(1-Y) 

70 IF N>NN THEN PRESET (255* (A- 

2.8)/1.2.192-y*191) 

80 SOUND 1+255*Y,1 

90 NEXT N 

100 NEXT A 

110 GOTO 110 

Como voce pode observar, os pontos 
de atra^ao modificam-se drasticamente 
a medida que a disponibilidade de ali- 
mento aumenta. No inicio (lado esquer- 
do da tela), s6 hd um valor de atra^ao, 
indicando uma popula^ao est^vel. Isso 
significa que o alimento ^ suficiente pa- 
ra OS peixes sobreviverem e se reprodu- 
zirem. Se a populagSo crescer demais, 
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haveri menos Eiiimento e alguns perxes 
morrerao. Com a maior disponibiiida- 
de de alimento para os sobreviventes, a 
populafao volta a crescer, podendo, em 
seguida. passar por uma nova fase de es- 
tabiiidade. 

Subitamente, quando A assume um 
certo valor, a quantidade de alimento ul- 
trapassa determinado limite. Passam a 
existir, eniao, dois pontes de atra^;ao e 
a curva se bifurca — indicando que o 
tamanho da populagao agora se alterna 
entre dois valores. Mais tarde, quando 
a quantidade de alimento se torna ain- 
da maior, a curva se bifurca mais uma 



vez, aumentando o niimero de pontos 
de atrafio. Mais e mais divisfies vao 
ocorrendo em uma seqiiencia infinita, 
da qual o programa so lem resolu^ao 
para mostrar os primeiros passes. As bi- 
furcagoes se acumulam e infinitos pon- 
tos de atracao passam a corresponder a 
um certo vaJor frnito de A. Em conse- 
qiiencia, a populaipao varia sem nunca 
se estabilizar. 

A descoberta dessa "Arvore de bifur- 
cEfoes' ' , que acaba num completo caos, 
despertou grande interesse na comuni- 
dade cientffica, por ter diversas aplica- 
^oes, Ela retrata, por exemplo, a modi- 



ficagao do fluxo de um liquido, que pas- 
sa de um estdgjo moderado (ponto de 
atra^ao estdvel) para um turbulemo 
(caos), con forme a veiocidade aumen- 
ta. O mesmo efeito pode ser observado 
na fumaga de um cigarro, que sobe sua- 
vemente e de repente desenvolve espi- 
rais, terminando em turbulencia. 

No programa, a lei de evoluijao esti 
na linha 60. Para ampliar a resolu^ao, 
aJtere a linha 20 de forma que S = .005, 
NMIM ou NM = 200 e NMAX ou NX 
= 300. No Spectrum e no TRS-Color, 
apague a linha 80 para aumentar a ve- 
iocidade do programa. 



■ 
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AVALANCH 





Nosso |>er$onagem nao pode mesmo 
confiar em sua sorte. Surpreendido por 
uma avalanche tao logo comegou a 
caminhada, conta apenas com um recttrso 
para escapar das pedras: saltar sobre elas. 



A parte do programa aqui apresen- 
tada permite que Willie se movimente 
para cima e para baixo, no mesmo lu- 
gar — ou sejaj nosso pobre personagem 
aprende, a tempo, a saltar sobre as pe- 
dras que>se aproximam. 

Willie Jd pode andar, mas isso nao o 
ajudard muito na hora de enfrentar a 



avalanche. Vamos faz£-lo saltar, de mo- 
do que as pedras passem rolando sob 
suas pernas, sem atingi-lo. 




10 


REM 


org 59336 


20 


REH 


jmp Id de,6 


30 


REM 


Id hi. 759 


40 


REM 


call 949 


SO 


REM 


Id a, (57335) 


60 


REM 


cpl 


70 


REM 


jr nz.mjb 


80 


HEM 


inc a 


<90 


REM 


Id (57335) ,a 


100 


REM 


Id hi, (57332) 


110 


REM 


Id de,3Z 


120 


REM 


3bc hi ,de 


130 


REM 


Id C57332),hl 


140 


REM 


Id be, 57048 


ISO 


REM 


Id a. 40 


160 


REM 


Id de.259 


170 


REM 


call 58970 


IBO 


REM 


ret 


190 


REM 


mjb cp 2 


200 


REM 


]r nz,iiijc 


210 


REM 


mc a 


220 


HEM 


Id (57335) ,a 


230 


REM 


Id hi , (57332) 


240 


REM 


Id bc.5700O 


250 


REM 


Id a, 40 


260 


HEM 


Id de.258 


270 


HEM 


call 589/0 


280 


HEM 


Id de,64 


290 


REM 


add hl.de 


300 


HEM 


Id a, 45 


310 


REM 


Id be, 15616 


320 


REM 


call 50217 


^^Q 


REM 


ret 


340 


REM 


m J c c p 3 


IhO 


REM 


ir nz.mjd 


3(50 


REM 


inc a 


370 


REM 


Id (5/335). a 


380 


REM 


Id hi, (5/332) 


391) 


REtti, 


Id bc,57048 


4 00 


RE£^ 


Id a, 40 



410 


REM 


)d de.259 


470 


HEM 


call 58970 


430 


REM 


Id de,32 


440 


HEM 


add hi ,de 


450 


HEM 


Id ( 5 7 3 3 2 ) , h 1 


460 


REM 


ret. 


4/0 


HEM 


mjd cp 4 


4 80 


HEM 


jr nz.mfj 


490 


REM 


Id a,0 


500 


REM 


Id (57335). a 


5)0 


REM 


Id hi, (57332) 


520 


REM 


Id de,32 


5 30 


REM 


sbc hl.de 


640 


HEM 


Id be, 15616 


550 


REM 


Jd a, 45 


560 


REM 


call 58217 


570 


REM 


jp 59153 


5B0 


REM 


mfl rfit 




Para montar essa rotina na mes- 
ma seqiiencia da que demos no ar- 
tigo anterior, elimine o ret que foi 
colocado temporariamente como 
ultimo comando. Em seu lugar, en- 
tra o rdtulo jmp, que significa salto. 

Assim que comepa a ser executa- 
da, nossa rotina faz o compulador 
emitir um sinal sonoro. Para isso, 
chama a rotina BEEP da ROM, que 
fica no endereqo 949. Os parame- 
tros adequados sSo mostrados nos 
pares de registros HL e DE. 



SUBINDO 



A rotina dqtisalto comp6e-se de 
quatro partes; !^da uma delas i exe- 
cutada a setLy^fiapo, quando a roti- 
na de movH^ita^ao e chamada. 

No ultii^^rtigo, mostramos 
que o proce^jjpjpr e direcionado pa- 
ra a rotina |l(((l'1^ o conteudo da po- 
sicao de raembna 57335 nao e ze- 
ro. Explicamos tambem como exa- 
minar o tcclado para detectar qual- 
quer pressao sobre as teclas M e N, 




>^4 CODIGODiMAQWNA 



llllllll 



AS QUATRO PARTES 



DA ROTINA DE SALTO 



SALTO VERTICAL 



E SALTO DIAGONAL 
EFEITOS SONOROS 



AJUSTAMENTO 



DOS APONTADORES DE TELA 
WILLIE ESTA NO AR 
DE VOLTA AO SOLO 



FIM DO SALTO 




Se apenas a tecia N foi pressionada 
e Willie deve saltar, a posiipao de metnd- 
ria 57335 i carregada com 1 , que iri di- 
recionar o processador para a rotina 
aqui apresentada na proxima vez que o 
programa principal — que controla o jo- 
go — chamar a rotina de movimenta- 
(;ao. Caso as teclas M e N tenham sido 
pressionadas, Willie deve saltar para a 
f rente (em diagonal); 129 e, entao, car- 
regado em 57335. Esta siluafao sera de- 
vidamente analisada no proximo artigo 
da serie Avalanche. 

For hora, imagine apenas que a roti- 
na de movimentagao de Willie consta- 
tou que houve uma pressao sobre a te- 
cia N, na ultima vez que foi chamada. 
Agora ela voltou a ser chamada, o que 
fez o processador direcionar-se exata- 
mente para nossa rotina. Depois da 
emissao do som que caracteriza o inicio 
de sua execucao... 

O conteiido da posigao de memdria 
57335 e carregado no acumulador ou- 
tra vez. Embora ele j^ estivesse ali quan- 
do esta rotina foi chamada, e provavel 
que a rotina BEEP tenha utilizado o 
acumulador para realizar o efeito sono- 
ro do salto. Assim, convem carregar o 
valor em A novamente. 

Depois, o conteudo de A e compara- 
do com 1, Naturalmeme, esse valor es- 
tA presente; em conseqiiencia, a proxi- 
ma instru^ao, jr Qz.mjb, nao e executa- 
da e o processador contlnua com inc a. 
Isto incrementa o conteudo do acumu- 
lador para 2, valor que ^ colocado de 
volta em 57335 por Id (57335),a. Incre- 
menta-se, assim, o contador de salto, 
para que a rotina de movimentacao 
acione a rotina jmp na pr6xima vez que 
for chamada. Nesse ponto, por^m, a 
primeira parte do salto seri deixada de 
lado; processador executa a segunda 
parte. Como voce devc ter reparado, ca- 
be a instrugao cp 1, seguida da instru- 
cao jr nz,iiijb, fazer o processador sal- 
tar para a segunda parte. 

A posigao de Willie na tela e en- 
j, tao carregada dos endere^os 57332 
" e 57333 para o par de registros HL. 
O valor 32 e subtraido dessa posi- 
5ao e colocado em DE. Com a exe- 
cuqio de sbc hi, de, o apiontador se 
move para a posi(;ao imediatamen- 
te acima de Willie na tela. O resiU- 



U 'f y: 



tado t carregado de volta nos endere?os 
57332 e 57333 , que contem a posigao do 
person age m na tela. 

Embora essa posi9ao tenha sido co- 
locada nos enderefos, ela ainda perma- 
nece no par HL. Todos os Id sao essen- 
cialmente operaif oes de copia que colo- 
cam o valor na nova posi^ao ou regis- 
tro, mantendo esse valor na posi?ao ou 
registro de origein. No nosso case, isso 
e importante, pois, para chamar a roti- 
na de impressao de bloco em 58970, a 
posigao de impressao na tela precisa es- 
tar no par de registros HL. 

O par BC, com o apontador de da- 
dos para a primeira figura de Willie sal- 
tando, e carregado em 57048. Esses da- 
dos foram apresentados em um artigo 
anterior de Avalanche e podem ser lidos 
numa tabela de dados na mem6ria. 

A i carregado com 40 — codigo de 
azul sobre ciano, a cor de Willie — e 
DE, com 259. Isso faz com que a rotina 
de impressao de bloco imprima um blo- 
co um por tres — 259 carrega 1 no re- 
gistro D e 3 no registro E; 1 x 256 + 3 
= 259, A rotina de impressao de bloco 
em 58970 e entao chamada e imprime a 
figura de Willie saltando. 

Em seguida, o processador retoma da 
rotina. 



WILLIE ESTA no AR 



F 




A pr6xima parte da rotina de salto & 
chamada quando se aciona novamente 
a rotina de movimentacao. Mais uma 
vez, essa se^ao come<;a verificando se a 
posi^ao de memoria 57335 contem 2 — 



o que aconteceri se ela esdver sendo 
chamada pela segunda vez. 

Lembre-se de que o conteiido de 
57335 esti no acumulador quando o 
processador salt a para essa parte da ro- 
tina; portanto, vocS nao precisa carregd- 
lo de novo. Se o valor 2 esti presente, 
o processador continua com a rotina e 
torna a incrementar o contador de sal- 
to com as instru?6es inc a e Id (57335),a. 
Assim, quando a rotina for chamada na 
proxima vez, a instruf ao cp 2 nao iri en- 
contrar um valor 2 e a instrugao jr 
tiz,mjc mandara o processador para a 
terceira parte. 

Se o 2 estiver presente e esta parte da 
rotina for acionada, a nova posicao de 
Willie no ar ^ carregada dos endereijos 
57332 e 57333 para o par de registros 
HL. BC e carregado com 57000, que 
corresponde ao endere^ inicial dos da- 
dos para a figura de Willie de pe com 
as pernas juntas. Esta e a figura que se- 
T& impressa quando, ao saltar, Willie es- 
tiver no alto. 

A e carregado com 40 — azut sobre 
ciano, a cor de Willie. DE e ajusiado 
com 258 para imprimir um bloco de um 
por dois — I X 256 + 2 = 258. A roti- 
na de impressao em 58970 imprime Wil- 
lie no ar com as pernas juntas. 

O par DE e carregado com 64 e adi- 
cionado ao apomador de tela em HL — 
o que move esse apontador duas linhas 
para baixo. O par HL aponta agora pa- 
ra a cabega de Willie. Lembre-se de que, 
subtraindo 64 (32 para cada linha), fa- 
zemos com que ele aponte para a posi- 
fao abaixo dos pes do personagem. A 
€ carregado com 45 — ciano sobre cia- 
no, apenas um pedafo comum de c^u. 
O apontador de dados BC 6 carregado 
com 15616, inicio do conjunto de ca- 
racteres para um espago em branco. 

A rotina print, no endereco 58217, e 
chamada, imprimindo um espafo em 
branco para apagar a parte da Figura de 
Willie que restou da prtmeira secio da 
rotina de salto. Lembre-se de que um 
bloco de um por tres foi impresso ali. 




e, agora, apenas um bloco de um por 
dois. O processador retorna de novo, at^ 
a rotina voltar a ser chamada. 



DESCENDO 



Na prdxima vez, o processador acio- 
nard a terceira parte da rotina de movi- 
mentafao. Antes de mais nada, ele ve- 
rifica se e necessario acionar a quarta 
parte da rotina de salto. Em seguida, o 
contador de salto, que ainda estd no 
acumulador, e incrementado e armaze- 
nado novamente em 57335, para que o~ 
processador pule para a quarta parte da 
rotina na proxima vez. 

O apontador da posi?ao de Willie na 
tela e carregado de volta em HL. O 
apontador de dados em BC e ajustado 
com o mesmo valor utilizado na primei- 
ra parte da rotina de salto. Willie des- 
cera ao chao pelo mesmo processo que 
subiu. 

A e carregado de novo com 40 — 
azul sobre ciano; DE volta a ser ajusta- 
do com 259 — um por tres. A rotina de 
impressao de bloco em 58970 i chama- 
da e imprime Willie descendo. 

O par DE € carregado com 32, valor 
adicionado ao par HL. O resultado e 
carregado de volta em 57332 e 57333. Is- 
so move o apontador de tela uma posi- 
9ao para baixo. 

O processador retorna agora com as 
posi?6es dos dados ajustados para a 
pr6xima parte. 



FIM DO SALTO 



Mais uma vez a rotina come?a com 
um cp, para verificar se esta € a parte 
necessiria da rotina de salto. Mas, ago- 
ra, estamos diante da ultima segao da 
rotina que faz Willie pular. Para que o 
processador chegue at^ aqui, o conteii- 
do do acumulador deve ser 4 (parte que 
finaliza o salto) ou 129, valor que indi- 
ca que Willie ira saltar para a frente. 
Nesse caso, jr nz,infj manda o proces- 
sador para outra instrupao de retorno, 
no final deste programa. O retorno se- 
rA apagado mais tarde, servindo para in- 
dicar o local onde se inicia a rotina de 
salto k frente, que serd fornecida no pr6- 
ximo artigo de Avalanche. Desta vez, 
entretanto, nenhum teste serd feito e nao 
precisaremos incrementar o contador de 
salto. £ necessdrio que se ajuste o con- 
tador com 0, para que, quando a rotina 
de movimentafao for novamente cha- 
mada, o processador execute a parte da- 
da no artigo anterior e verifique se al- 
guma tecia foi pressionada. Isso i feito 
por Id B,0 e Id (57335),a. 



A posi^ao de Willie volta a ser carre- 
gada de 57332 e 57333 para o par de re- 
gistros HL, onde 32 € subtraido atrav^s 
do par DE, fazendo o apontador se mo- 
ver uma posi(;ao acima na tela. 

BC ^ carregado com o endere?o de 
um espa^o vazio e A, com o c6digo de 
ciano sobre ciano. A rotina print, em 
58217, e chamada de novo. Apaga-se, 
assim, o caractere adicional ocupado 
por Willie, impresso na terceira parte da 
rotina de salto, 

A tnstru^ao jp 59153 faz o processa- 
dor voltar para o inicio da rotina de mo- 
vimentacao, dada no artigo anterior. 
Como contador de salto contem ago- 
ra o valor 0, o processador executa a ro- 
tina que imprime Willie parado, apagan- 
do que restou da antiga figura. 

A ultima instrugao ret da listagem 
tem a fungao de prevenir que ocorra um 
erro no programa, caso a rotina de sal- 
to para a frente venha a ser chamada. 
Essa instru^ao sera apagada na prdxi- 
ma parte do programa. 
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JUM JSR CLICK 
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JSR CHARPR 
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LDU #17846 
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JSR CHARPR 
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LEAX -256, X 
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JSR- CHABPR 


300 


LEAX 254.x 
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JSR CRARPR 
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420 JStt CHAHPB 

430 LEAX 254.x 

440 LDL' 117956 

450 JSR CHAR PR 

460 LEAX 254, X 

470 L0U |1?990 

480 JSR CHARPB 

490 RTS 

500 MJC CMP A #4 

510 BNE HFJ 

520 CLR 18261 

530 LDX 18249 

540 PSHS X 

550 LDU 11536 

560 JSR CHAHPB 

570 PULS X 

580 LEAX 256, X 

590 STX 18249 

600 LDU #17774 

610 JSR CHARPR 

620 LEAX 254.x 

630 JSR CHABPR 

640 EITS 

650 MFJ RTS 

660 CHAHPH EQU 1940 2 

670 CLICK EQU 20847 

A primeira coisa que a rqtina JUM 
(ou de salto) faz t chamar a sub-rotina 
CLICK, que toca uma das notas do efd- 
to sonoro do salto. Se voc§ ainda nao 
tiver digitado essa retina, adicione um 
retomo em 20847 per meio da inslru^o 
POKE, com 57 nesse endere^o. Assim, 
nio havera erro quando o programa for 
testado. 



PULANDO POR ETAPAS... JA! 



O acumulador e carrcgado com o 
conteudo da posifao de mem6ria 18261 , 
que contera a variivel do salto. Inicial- 
meme, ela esti carregada com 1 ou 129 
— dependendo de qua! tecla foi pressio- 
nada — indicando, portanto, se Willie 
deve pular verticalmente ou dar um sal- 
to k frente. Cada um desses tlpos de pu- 
le e dividido em quatro etapas, execu- 
tadas uma por vez, quando a rotina de 
movimentagao e chamada. Para garan- 
tir o adonamento da etapa correta, a va- 
ri&vel do salto 6 incrementada na exe- 
cu^ao de cada parte, 

Se a varidvel do salto 6 0, utiliza-se 
a secao da rotina que examina o tecla- 
do para ver se uma ardem de pular foi 
dada. Caso a variivel de movimentacao 
contenha qualqucr outre valor que nao 
seja 0, processador vem para esta par- 
te do programa e executa uma das roti- 
nas de salto. 

Se for 1, a primeira parte da rotina 
6 acionada. Duiante sua execucao, a va- 
riivel de salto i incrememada, para que, 
na pr6xima vez que a rotina de movi- 
menta?ao for chamada, essa sepao seja 
evitada e o processador passe para a par- 



te dois. Assim, sempre que a rotina de 
movimenta^o for acionada, eta chama- 
tA a prdxima parte — ate que a ultima 
(a quarta) seja executada e a variAvel do 
salto volte a ser ajustada com 0, 

Se a ultima rotina ajustou a variivet 
do salto com 129, esta parte ^ ignora- 
da. A rotina do salto para a frente, que 
dareraos no pr6ximo artigo de Avalan- 
che, 6 ent5o acessada. 



O centeiido do acumulador e compa- 
rado com 1 . Se 1 nao esta presente, o 
processador passa para MJA. Caso con- 
trArio, o processador continua com es- 
ta parte da rotina. 

A primeira coisa que ela faz i incre- 
mentar a varidvel em 18261, deixando- 
a pronta para a pr6xima vez. 

X e carregado com a poslgao de Wil- 
lie, que estd no enderego 18249 e £ ar- 
mazenado temporariamente na pilha. O 
apontador em X e increment ado com 
256, movendo-se um caractere para bai- 
xo. U e carregado com 1536, o endere- 
90 do canto superior esquerdo da tela. 
O processador chama entao a rotina 
CHARPR. que imprime um bloco de 
ceu azui sobre a metade inferior de Wil- 
lie. Se nao fizermos isso, as pernas de 
Willie aparecerao em sua posi?ao an- 
terior. 

A posicao de Willie e novamente 
guardada na pilha e movida um carac- 
tere para cima pela subtra^ao de 256, O 
resultado ^ armazenado de volla em 
18249. U 6 carregado com 17814, ende- 
re^io inicial para os dados de Willie com 
as pernas abertas. Em seguida, a rotina 
CHARPR e chamada para iniprimir a 
metade superior. 

O apontador de tela i incrementado 
com 254, passando a apontar para o ini- 
cio da metade inferior de Willie. U e re- 
carregado e a rotina CHARPR volta a 
ser chamada para imprimir sua metade 
inferior. 

O processador retorna depois de ter 
imprimido Willie com as pernas abertas 
um caractere acima do chio. 



Quando a rotina de mevimenta?ao de 
Willie for novamente chamada, niime- 
ro no endere?o 18261 ser^ 2. Portanto, 
o processador iri pular a primeira par- 
te da rotina publicada no artigo anterior 
e a parte desta rotina que foi dada at6 
agora. Mas, quando ele saltar de novo 
para MJA, o conteudo de 18261. que 



ainda esta no acumulador, seri compa- 
rado com 2. Na chamada seguinte da ro- 
tina de movimentacao, quando o con- 
teado do endere?o 18261 tiver sido in- 
crementado mais uma vez. a instrucao 
BNE MJB mandarS processador ve- 
rificar se seu valor e 3, 4, 129, 130, 131 
ou 1 32. Desta vez ele executard a prdxi- 
ma secao da rotina, imprimindo a figu- 
ra de Willie no segundo estdgio do piilo, 

Essa se^ao tamb^m come^a incre- 
raenlando o conteudo de 18261, acer- 
tando-o para a proxima chamada da ro- 
tina de salto. Depois, a nova posi^ao de 
Willie e carregada de 18249 para X e de- 
crementada de 256 — o que faz o per- 
sonagem se mover um caractere acima 
na tela. Mas agora o resultado nao e co- 
locado de volta em 18261 . Willie estd no 
alto de seu pulo, 

U i carregado com 17870, enderego 
inicial dos dados da nova figura de Wil- 
lie. Desta vez, ele tern tres caracteres de 
altura, impresses em trSs posigoes — 
CHARPR precisa ser chamada tres ve- 
zes e X e decrementado com 254 para 
mover o apontador uma linha abaixo 
em cada chamada. 

Feito isse, o processador retorna. 



Quando a rotina de movimentagao 
volta a ser chamada, o conteudo de 
1 8261 e 3 e o processador executa a re- 
tina MJB. Ela comepa. mais uma vez, 
incrementando 18261, carregando 18249 
em X e subtraindo 256. 

S6 que agora a figura anterior de 
Willie deve ser apagada. U ^ carregado 
com 1536, o endere?o do canto superior 
esquerdo da tela, e a rotina CHARPR 
i chamada, imprimindo a cabega de 
Willie na tela. O apontador X e incre- 
mentado para indicar aposigao inferior 
na tela e U e carregado com o enderego 
dos dados para a impressao do resto da 
figura. 



QUATRO! 



Se nosso personagem esta pulando na 
vertical, mais cedo ou mais tarde o pro- 
cessador nA executar MJC. As instru- 
goes CMP A # 4 e BNE chamarao MJF 
apenas quando Willie for saltar na dia- 
gonal. Mas aquela pequena rotina serd 
sempre executada. 

Come chegamos h quarta e ultima 
parte da rotina que faz Willie pular ver- 
ticalmente, o conteudo da posigao 18261 
nSo & incrementado. A instrugao CLR 
18261 ajusta essa varidvel com 0; a ro- 
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Una de movimenta^ao de Willie €, por- 
tanto, executada e verifica-se, pelo cxa- 
me do teclado, se ele deve pular de novo. 
A posi^ao de Willie 6 carregada em 
X e colocada na pilha de mdquina para 
armazenamento tempordrio. Como a fi- 
gura tcm apenas dois caracteres de al- 
tura quaiido estd parada ou andando, 
e tres, quando estd pulando, o caracte- 
re mais alto tern que ser apagado de no- 
vo. Note que, agora, Willie esti numa 



posiQ^o intermedidria, usada para tor- 
nar o pulo mais suave. 

U t carregado com 1536, que aponta 
para uma parte do c6u no topo da tela. 
Quando e chamada, a rotina CHARPR 
apaga a catena da figiu-a anterior. 

A pcsicSo de Willie € recuperada da 
pilha e adicionada a 256, o que faz a fi- 
gura se mover um caractere abaixo na 
tela. Lembre-se de que sua posi^ao ti- 
nha sido decrementada com 256 no inf- 



cio desta rotina, quando Willie comecou 
o saito. Assim, quando o novo valor d 
armazenado em 18261, o personagem 
simplesmente volta para a posic^o an- 
terior ao do pulo. 

U 6 entao carregado com 17774, en- 
dere^o Inicial dos dados para a figura de 
Willie com as pernas juntas. CHARPR 
i chamada duas vezes e X e adicionado 
com 254, imprimindo a figuia comple- 
ta de Willie na tela. 
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pi Id a. (-5202) 

cp 1 

jr nz.pb 

tnc a 

Id (-5202). a 

Id hi, (-5205) 

Id de,32 

sbc hl.de 

Id C-520S) ,hl 
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pueh hi 

call 77 

pop hi 

Id de,32 
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Id a, 11 

push hi 

call 77 

pop h 1 

Id de.32 
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Id a, 255 

call 77 
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jr nzipc 

inc a 

Id (-5202) ,a 

Id h" . (-5205) 

Id de, (62407) 

add hl.de 

Id a,0 

push hi 

call 77 

pop hi 

Id de.32 

add hi tde 
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end 



SUBINDO 



A rotina de salto 6 dividida em qua- 
tro partes; cada uma delas e executada 
separadamente quando a rotina de mo- 
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vimenta^o de Willie h chamada. No ul- 
timo artigo, vimos como o processador 
e direcionado para a rotina pi quando 
o conteiido da posi^ao de memtiria 

- 5202 nao e zero. Vimos tamWm co- 
mo examinar o teclado para descobrir 
se as teclas de controle M e N foram 
pressionadas, individualmente ou ao 
mesmo tempo. 

Se a tecla M foi pressionada e Willie 
deve saJtar, a posigao de memdria 

— 5202 e carregada com 1 . Isso fara com 
que o processador seja direcionado pa- 
ra esta rotina na proxima vez que a ro- 
tina principal do jogo chamar a rotina 
de movimenta(;ao. 

Se M e N foram pressionadas, Willie 
deve saltar na diagonal e 129 e carrega- 
do em - 5202. Este caso sera examina- 
do no proximo artigo. 

Por enquanto, suponhamos que a ro- 
tina de movimentagao detectou que a te- 
cla N foi pressionada na ultima vez que 
foi chamada. Agora, e!a voltou a ser 
chamada, o que fez o processador dire- 
cionar-sc para a rotina do salto, cuja 
execugao se inicia,., 

O conteiido da posigao - 5202 da 
mem6ria e carregado novamente no acu- 
mulador. Em seguida, o valor em A c 
comparado com 1. Como a suposigao 
feita exige que o valor seja 1, a instrugao 
seguinte, jr nz,pb, nao e executada e o 
processador conlinua com Inc a. Com is- 
so, o conteudo do acumulador passa a 
ser 2 — valor que c colocado de volta 
em - 5202 pela instru^ao Id ( - 5202), a, 
Incrementa-se, assim, ocontador de sal- 
to para que, na pr6xima vez que a rotina 
de movimentagao for chamada, ela acio- 
ne a rotina pi. Neste ponto, porem, a pri- 
meira parte do salto i deixada de lado 
e o processador executa a segunda. 

A posicao de Willie na tela e carre- 
gada dos enderecos - 5205 e — 5204 no 
par HL. O numero 32 e subtiaido dessa 
posi?ao e colocado em DE; a insiru9ao 
sbc hi, de e executada. Isso coloca o 
apontador de posi^ao um caractere aes- 
ma de Willie na tela, O resultado e car- 
regado de volta nos enderecos que 
contem a posi^ao de Willie, - 5205 
e -5204. 

Embora esse valor tenha sido 

colocado nos enderecos, ele per- 

manece no par HL. Todos os Id 

sao essencialmente operafjoes de 

cdpia, que coiocam o vaJor na nova 
posipao ou registro, mantendo esse va- 
lor na posi^ao ou registro de origem. No 
nosso case isso i importante, pois o va- 
lor em HL e somado ao enderego inicial 
da Tabela de Nomes da VRAM, passan- 
do a apontar para a posigao de Willie 
na TN. 

O acumulador e carregado com iP, 



codigo do primeiro padrao da figura de 
Willie subindo, com as pernas abertas, 
O apontador no par HL e guardado na 
pilha e a rotina 77 da ROM e chamada. 
Essa rotina escreve o valor de A no en- 
dere?o da VRAM apontado por HL — 
o que equivaJe, aqui, a colocar o padrao 
na teta. 

O apontador ^ recuperado da pilha 
e somado com 32, voltando-se para uma 
posiifao abaixo da anterior. A e carre- 
gado com 1 1, c6digo do segundo padrao 
da figura de Willie. O apontador e no- 
vamente guardado na pilha e a rotina 77 
da ROM e chamada. 

A figura de Willie saltando ja esta 
completa, Falta so apagar uma parte da 
figura anterior. Para isso, recupera-se o 
apontador da pilha e adiciona-se 32, fa- 
zendo-o apontar para o padrSo que se 
pretende eliminar. O cddigo do padrao 
de ceu, 255, e colocado em A e a rotina 
77 e chamada, apagando parte da figu- 
ra anterior. Em seguida, o processador^ 
retorna. 



WILLIE ESTA NO AR 



A segunda parte da rotina de salto ^ 
chamada assim que se aciona a rotina 
de movimentai^^ao. Como as outras par- 
tes, e!a comeca verificando se a posi?ao 
de memoria -5202 contem 2 — o que 
acontece se esta parte ainda nao foi exe- 
cutada. 

Lembre-se de que o conteudo de 
- 5202 esta no acumulador quando o 
processador aciona esta parte — portan- 
to, nSo 6 necessario carregS-lo outra vez. 
Se valor 2 est^ presente, o processa- 
dor continua com a rotina e incrementa 
o contador de salto com as instru(;6es 
IDC a e Id ( - 5202), a, Quando esta par- 
te for acessada na pr6xima vez, cp 2 nao 
ira encontrar o valor 2 e jr nz,pc man- 
darA entao o processador para a ter- 
ceira parte do salto, 

Se o valor 2 estiver presence e esta 
pane da rotina foi acionada, a atual po- 
si?ao de Willie e transferida dos ende- 
re^os - 5205 e -5204 para o par de re- 
gistros HL. O par DE d carregado com 
o enderepo inicial da TN da VRAM e so- 
mado em HL. O acumulador e carrega- 
do com 0, o cbdigo do primeiro padrao 
da figura de Willie parado. O aponta- 
dor em HL i guardado na pilha e a ro- 
tina 77 da ROM e chamada. 

O apontador e recuperado da pilha 
e somado com 32 por mdo de DE, o que 
o faz se mover uma posiijao para bai- 
xo. A e carregado com 1 , o c6digo do 
segundo padrao da figura. A rotina 77 
6 chamada de novo. Neste ponto. Wil- 
lie esta impresso no ar com as pernas 




juntas. Observe que agora nao e preci- 
se apagar nada, pois a figura foi impres- 
sa sobre a anterior. 

O processador retorna da rotina ate 
a pr6xima chamada. 



DESCENDO 



Desta vez, o processador executa a 
terceira parte da rotina de salto, Primei- 
ro, ele verifica se e necessario acionar a 
quarta parte do salto. 

Em seguida, o contador de salto, que 
ainda est^ no acumulador, e incremen- 
tado e devolvido a -5202, para que o 
processador passe para a quarta parte 
na prbxima vez. 

O apontador de Willie na tela e car- 
regado no par HL. O par DE e carrega- 
do com o endere^o inicial da TN da 
VRAM e somado em HL. Em seguida, 
a mesma figura da primeira parte e im- 
pressa de maneira identica, utilizando a 
rotina 77 da memiria ROM. O proces- 
sador retorna desta parte. 



FIM DO SALTO 



Mais uma vez a rotina inicia com um 
cp, verificando se esta e a parte neces- 
siria da rotina de salto. Para que o pro- 
cessador chegue at6 aqui, o conteudo do 
acumulador deve ser 4 ou 129. Se for 4, 
esta € a liltima parte da rotina do salto; 
se for 129, Willie iri saltar na diagonal. 
Nesse caso. a instru^ao jr nz,nip man- 



da o processador para a instrufao de re- 
torno do final deste programa. Essa ins- 
trucao sera apagada pela rotina de sal- 
to diagonal, que apresentaremos no pr6- 
ximo artigo de A valanche. 

Nenhum teste seri feito, nem preci- 
saremos incrementar o contador de sal- 
to. £ necessario, porem, ajustar esse 
contador com zero, para que, quando 
a rotina de movimentagio for chamada 
de novo, o processador execute a primei- 
ra parte, dada no artigo anterior, que 
verifica se alguma tecia foi pressionada. 
Isso e feito pelas instruijoes Id a,0 e Id 
(-S202),a. 

A posicao de Willie e mais uma vez 
carregada no par HL, sendo armazena- 
da na pilha. O endere<^ inicial da TN 
da VRAM i colocado em DE e somado 
ao valor de HL. O acumulador e carre- 
gado com 255, cbdigo do padrao de 
ceu. A rotina 77 da ROM e chamada, 
apagando parte da figura anterior. 

A posipao de Willie i recuperada da 
pilha para HL, somada com 32 atraves 
de DE e, finalmente, devolvida aos en- 
dere?os - 5205 e - 5204. 

A primeira rotina de movimentacao 
de Willie e chamada por jp 54603. Nao 
se preocupe com o que restou de sua fi- 
gura, pois nossa rotina apagara todos os 
vestigios indesejiveis. 

O ultimo ret da listagem e colocado 
apenas para prevenir possiveis erros, que 
ocorreriam se a rotina de salto diagonal 
fosse chamada sem estar presente na me- 
m6ria. Essa instrucSo serd apagada pe- 
la parte do programa dada no proximo 
art^o de Avalanche. 




DAREAUDADE 



Para g&nhar a quina da loto, basta 
escolKer cinco numeros ao acaso - 
OS cinco numeros certos, 6 claro. 
Veja aqui algutnas dicas estatisticas 
para programar eventos aleat6rios. 



Os engenheiros constroem modelos 
em miniatura, para testar suas proprie- 
dades. Quando fazem isso, estSo simu- 
lando um sistema. O programa do arti- 
go da pdgina 1121 executa algo bem pa- 
recido: ele Simula um evento, oferecen- 
do resuUados compatlvels com a reali- 
dade. Veremos agora como combinar os 
princi'pios da simula?ao e da estatistica 
para resolver problemas de ordem prd- 
tica e para acrescentar a nossos jogos 
uma dose de realidade. 



TIPOS DE MODELO 



Um modelo e uma representapao sim- 
plificada de um sistema real, per meio 
da qual se procura explicar ou prever as 
caracieristicas e o comportamento des- 
se sistema, Existem trSs tipos de mode- 
lo — iconico, anilogo e simb6lico ~, 
nem todos liteis aos usuirios de micro- 
computadores. 

Modelos iconicos tiao possuem par- 
tes moveis. Maquetes de estradas e pr6- 
dios incluem-se nessa categoria. Ao pro- 
jetar a consirui;^© de uma ponte sobre 
um estuirio, por exemplo, engenheiros 
civis providenciam uma maquete da 
ponte e da irea adjacente, a fim de es- 
tudar OS efeilos da mare, da correnteza 
e do vemo. Embora se utilizem compu- 
tadores para interpretar os resuUados, 
a necessidade de coletar dados atrav^s 
de um experimento toma a simuiagSo 
dispensavel. 

Modelos an^logos representam um 
fenomeno — ou quant idade — por ou- 
tro. i o caso de um economista que, pa- 
ra representar o fluxo de dinheiro na 
economia mundial, utiliza fluxo de 
Agua de um conjunto de tanques cheios 
atd diferentes niveis. Esse tipo de repre- 
senta;ao pode ser feilo eletronicamente 
— empregando-se computadores anal6- 
gtcos e nao digitals. 

O tercciro tipo de modelo, o simb6- 
lico, I o que apresenta particular inte- 
resse para o usuSrio do micro. 



INCIRTHAS 



Num modelo simb61ico, representa- 
se determinado sistema per meio de uma 




f6rmula matemMica. Para estudar adis- 
tancia S percorrida por um carro que se 
desloca k velocidade constante V por um 
certo periodo de tempo T, um modelo 
adequado seria S = V*T. Essa equa?ao 
€ chamada determint'stica, pois nao 
comporta nenhum elemento de incerte- 
za ou acaso. 

Existem, contudo, evemos que nao 
podem ser previstos com tal grau de pre- 
cisao. Temos um bom exemplo disso no 
programa apresentado no artigo da pi- 
gina 776, que simula o lancamento de 
uma moeda. Modelos que descrevem fe- 
nomenos que incluem um elemento de 
acaso sao chamados estocQSiicos. Este 
6 o tipo de evento que se costuma simu- 
lar, especialmente em jogos. 

Algumas varidveis sd podem assumir 
valores discretes como 0, 1 , 2, 3 ... O nu- 
mero de gols em uma partida de fute- 
bol pertence a essa categoria. Quando 



simulamos variSveis aleatorias como es- 
sa, precisamos sempre levar em coma 
que certos processes aparentemente di- 
ferentes tern, na realidade, a mesma es- 
trutura. 

Tomemos como exemplo o programa 
que Simula o lancaraento da moeda. Ele 
poderia ser facilmente modificado a fim 
de fornecer os resultados de um jogo de 
dados ou da cobranga de penaltis. Em 
todas essas circunstancias hi um certo 
numero de eventos independent es, cada 
qual com uma probabilidade definida. 
No caso de langarmos uma moeda qua- 
tro vezes, vArios resultados sao possi- 
veis: quatro caras, tr€s caras c uma co- 
roa, duas caras e duas coroas, uma ca- 
ra e tres coroas, quatro coroas. Cada um 
dos resultados, por^m, tern uma proba- 
bilidade definida. Os processes desse ti- 
po, conhecidos como processes de Ber- 
noullir sao formados por variAveis alea- 



II 



TIPOS DE MODELO 



INCERTEZAS 



simulac5e$ 
distribui c ao uniforme 




PROBABILIDADE E 

COMPQRTAMENTO ALEA T ORIQ 

VARIAVEIS ALEATORIAS 



DISTRIBUICAO NORMAL 



DISTRIBUI CA O EXPONENCiAL 
COMPARACAO DE EVENTOS 



t6rias discretas. Eles nao se prestam, por 
exempio, para descrever o niimero de 
acidentes do campeortato mundial de 
F6rmula-1 ou o numero de chamadas te- 
le f 6 nicas que chegam a uma central em 
tneia hora. Nessas situagoes, os eventos 
ocorrem ao acaso durante um certo pe- 
n'odo de tempo e nao sao o resultado de 
experimentos sucessivos. Tais processes 
sao denominados processes de Poisson. 
Para obter uma distribui^ao de Pois- 
son, digite este programa: 



ID BORDCB Ot PAPER 0: IMK 7: 

CLS 

20 POKE 23658.0 

40 PRINT AT 1,6; INVERSE 1;'3 

IMULACAO DE POISSON ' : PRINT 

: PRINT 

50 INPUT "QUAL E VALOB MEDI 



O "ia 

7 INPUT "TAMANHO DA AMOSTRA 

";n 

80 FOR I'l TO n 

M LET c=0: LET t-1 
100 LET a=EXP (-a) 
110 LET r. = t*CRND*l) 
120 IF t<=a THEN PRINT " 

" ;c; : GOTO 150 
13.0 LET c = c+l 
140 GOTO 110 
150 NEXT i 

160 INPUT " OUTRA AMOSTRA (S/ 
N} ?'';(lS 

170 IF q$="B" THEN GOTO 10 
leO STOP 



m 



10 R=RNDt-TIME] 

30 CLS; WIDTH 40 

40 PRINT "Diatribuio de Poiaaon 

' -PRINT: PRINT 

50 INPUT "Qual ^ o valor da in^d 

ia';A 

60 PRINT 

70 INPUT "Tainanho da ainoBtra~;N 

80 FOR 1-1 TO N 

90 C-0:T-1 

100 S-EXP(-A) 

110 T"T*RND(1) 

120 IF T<-S THEN PRINT LEFT$(ST 

HS(C)+- ",8) ; :GOTO 150 

130 C=C+1 

140 GOTO 110 

150 NEXT I 

160 PRINT: INPUT "Outra anostra 

(Y/N)":GS 

170 IF G$--Y" THEN 30 

ISO END 



HDB] 



30 HOME 

40 PRINT TAB( 9) : 'DISTRIBUICA 

DE POISSON" : PRINT : PRINT 

50 INPUT "QUAL VALOR DA MEDI 

A " jA 

60 PRINT 

70 INPUT "TAMANHO DA AMOSTRA " 

iN 

80 FOR I - 1 TO N 

90 C - 0:T = 1 

100 S - EXP C - M 

110 T - T * RND (1) 

120 IF T < - S THEN PRINT L 

EFT$ ( STR9 (C) + " ".BJ ; 

: GOTO 150 

130 C - C + 1 

140 GOTO 110 

150 NEXT I 

160 PRINT : INPUT "OUTBA AMOST 

RA (S/N) "jGS 



170 

lao 

El 



IF G$ 
END 



"S" THEN 30 



30 CLS 

40 PRINT «6, 'simulacao de poiss 

on" : PRINT: PRINT 

50 INPUT"QUAL E WALOH MEDIO " 

iA 

60 PRINT 

70 INPUT"TAMANHO DA AMOSTRA "iN 

80 FOR I-l TO N 

90 C=0:T-1 

100 S-EXP(-A} 

110 T-T*RND(0) 

120 IF T<-S THEN PRINT LEFTS <ST 

flS(C)+* ",8)::GOT0 150 

130 C=C+1 

140 GOTO 110 

150 NEXT I 

160 PRINT :INPUT-OUTRA AMOSTRA ( 

S/N) " :GS 

170 IF GS-"S" THEN 30 

180 END 

Ac ser cxecutado, o programa soH- 
cita o valor m^dio, bem como o niime- 
ro de element OS da amostra. A parte 
principal do programa (linhas 80 a 150) 
usa uma equa^ao para gerar as varidveis 
de Poisson. A variavel S recebe o vaJor 
de e (uma constante matemiiica) eleva- 
da ao valor de A (valor da media). A li- 
nha 110 escoihe um mimero aleat6rio 
entre e T. A linha 1 20 compara as va- 
ri^veis S e T para decidir se imprime ou 
nSo uma variavel C. 

Suponhamos que voce queira criar 
um jogo onde imia nave espacial enfren- 
ta uma chuva de meteorttos. Se o mime- 
ro m^dio de "colisoes" em um periodo 
de um minuto e dois, e voce precisa de 
cinco simutaipoes de um minuto, o com- 
putador podera fomecer o resultado 2, 
3, 2, 1,0 como amostra do mimero de 
cheques que a nave sofrerA era um mi- 
nuto. Cada valor nao i muito diferente 
de 2 (a media) e hi cinco valores — o 
tamanho da amostra. 

Poderiamos usar a mesma t&nica pa- 
ra simular os resultados de uma serie de 
partidas de futebol? fi claro que sim. Es- 
taremos lidando com uma variavel dis~ 
creta, pots o numero de gols em uma 
partida s6 pode assumir valores inteiros. 
Gols sao eventos que ocorrem ao aca- 
so, em determinado espapo de tempo — 
e nao o resultado de um certo numero 



1 



de experimentos repetidos. Portanto, 
nesse caso, um processo de Poisson i 
adequado. 

Al^m do niimero de partidas, preci- 
saremos escoiher a oi&lia de gols por 
partida. Este 6 o momento de buscar da- 
dos no mundo reaJ. A tabela abaixo 
mostra a mWia de gols j>or partida nos 
campeonatos da primeira divisao ingle- 
sa entre 1977 e 1983. 



Primaira divisAo | 


M«dia 


de gols por 


partida 




Time 


Tima 


Tamporada 


da casa 


vlsttante ' 


77-78 


1.6039 


1.0606 


78-79 


1.5498 


1 .0844 


7980 


1.6925 


0.9481 


80-81 


1.6364 


1.0216 


81-82 


1.4545 


1 .0844 


82-83 


1.7532 


0.9822 



Baseados nesses valores, podemos es- 
timular uma m^dia de 1.7 gols por par- 
tida para o time da casa e de 1.0 para 
o time visitante. Dividindo esses niime- 
ros por dois, obteremos as madias de 
0,85 e 0.5 para meio tempo de jogo. De 
posse desses dados, fica fdcil claborar 
o programa: 



20 DIM aS(25,10): DIM hS{25, 

10) : DIM K(50) : DIM a<50) : 

DIM f (50) .■ DIM g{&0) 

30 BORDEB 0: PAPER 0: INK 7: 

CLS 

50 PRINT AT 0,8; INVERSE li' 
PLACAR FINAL ' 

70 INPUT " QUANTAS PARTIDAS { 

1-25)? -jn 

7S IF n<l OH n>25 THEN GOTO 
70 

eO FOR i-1 TO n 

90 PRINT -PARTIDA*;! 
100 INPUT 'TIME DA CASA^ihSfi) 
110 INPUT "TIME VISITWITE'saSi 
i) 

IZO NEXT 1 
130 PAUSE 400 
140 PRINT 

ISO FOR l-l TO 2*n 
160 LET C-0: LET t-1 
170 LET a-EXP (-.65) 
180 LET t-t*<RND*l} 
190 IF t<-a THEN LET h{l)-C: 
GOTO 220 
200 LET c-c+1 
210 GOTO 180 
220 NEXT i 
230 FOR i-1 TO 2«n 
240 LET c-0: LET t-1 
250 LET 8-EXP (-.5) 
250 LET t-t«CaND*l) 
270 IF t<-o THEN LET a(i)-c: 
GOTO 300 



2B0 LET c-c+1 

290 GOTO 260 

300 NEXT i 

310 CLS 

320 PRINT TAB (7); "PLACAR PRIM 

EIRO TEMPO" i ' ' 

330 FOR i-1 TO n 

340 PRINT hS(i) ih(i) ;TAB 20;a3 

(i> ;a ti) : PRINT 

350 NEXT i 

360 PRINT " QUALQUER TECLA PAH 

A CONTINUAR" 

370 IF lNKElfS="" THEN GOTO 

370 
375 CLS 
380 PRINT TAB 12; "PLACAR FINAL 

m w f 

390 FOR 1-1 TO n 
400 LET f (i)-h(i)+h(n+i) 
410 LET gCi)-a(i)-t-a(i+n) 
420 PRINT hSd] :f Ci) ;TAB 20;a3 
(i) sflti) : PRINT 
430 NEXT 1 
440 INPUT " NOUAMENTE ? {a/n 

) -;g$ 

460 IF g3-'n" THEN GOTO 490 

460 INPUT "MESMOS TIMES (s/n) 

?';pS 

470 IF p3="n" THEN GOTO 70 

480 GOTO 150 

490 STOP 



fffi 



5 R=HNDC-TIME} 

20 DIM A$C25) ,HS(25) ,H(SO) ,AC50 

J ,FA(25) ,FH{25) 

30 CLS: WIDTH 40 

50 PRINT TAB (1 3) : 'SCORE FINAL" 

60 PRINT: PRINT 

70 INPUT" Quantaa partidaa (1-25 

)";N 

75 IF N<1 OR N>25 THEN 70 

80 FOR 1=1 TO N 

90 PRINT "PALITO";! 

100 INPUT "Tiffle da caaa";H3{I) 

110 INPUT "Time de fora"iAS(I) 

120 NEXT I 

130 FOR V-1 TO 2000: NEXT V 

140 PRINT 

150 FOR 1=1 

C-0:T»1 

S-EXP(- 



TO 2*N 



85) 



160 

170 

180 T"T*RND{0) 

190 IF T<-S THEN H(I)-C:GOT0 22 



200 C-C+1 

210 GOTO 180 

220 NEXT I 

230 FOR 1=1 TO 2*N 

240 C-0:T-1 

250 S-EXP{-.S) 

260 T-T*RND(0) 

270 IF T<-S THEN A(I)>=C:COTO 3D 



2B0 C-C+1 

290 GOTO 260 

300 NEXT I 

310 CLS 

320 PRINT TAB (9) ; "Score tempori 

rio": PRINT; PRINT 

330 FOR I-l TO N 

340 PRINT HSd) :H(I) ,AS(I) :Aa) 

350 NEXT I 



360 

a" 

370 

380 

390 

400 

410 

420 

I) 

430 

440 

•;G3 

450 

460 

PS 

470 

480 



P..INT "Aperte qualQuer tecl 

IF INKEVS-'" THEN 370 

CLS 

FOR I-l TO N 

FH(I>-H(I)+HCN+I) 

FA{I)-A{I)-t-A(N+l) 

PRINT HSCD iFH(I) ,ASCI) ;FA( 

NEXT 

PRINT :INPUT"OUTRA UE2 (S/N) 

IF GS-"N- THEN END 

INPUT "Meamoa tines {S/N)'s 

IF PS-'N" THEN 70 
GOTO 150 



[Hl^ 



20 DIM AS(25) .H$(25) .H(50) ,A(5 
OJ .FA(25) ,FH(25) 
30 HOME 

TAB( 13) ; "SCORE FINA 



50 

L " 

60 

70 

25} 

75 

80 

90 

100 

) 

110 

) 

120 

130 

140 

150 

160 

170 

180 

190 



PRINT 



PRINT 
INPUT 
' • N 

IF N < 1 OR N > 
FOR I - 1 TO N 
PRINT "PARTIDA " ;I 
INPUT "TIME DA CASA 



: PRINT 

"QUANT AS PARTIDAS (1- 



25 THEN 70 



!H9(I 



INPUT 'TIME DE FORA -;AS(I 



1 TO 2000: NEXT V 



NEXT I 

FOR U = 
PRINT 

FOR I ~ 1 TO 2 * N 
C = 0:T - 1 
S - EXP ( - .85) 
T - T * RND (1) 
IF TT < = S THEN H(I) 
: GOTO 220 
200 C - C -t- 1 
210 GOTO 180 
220 NEXT I 
2 30 FOR I = 1 TO 
240 C - 0:T - 1 
2.S0 S = EXP ( - 
260 T » T * RND 
270 IF T < - S 

GOTO 300 
2S0 C - C 
GOTO 



2 * N 

.5) 

(1) 
THEN A(I) 



290 

300 

310 

320 

INT 

3 30 

340 

) 

350 

360 

LA 

370 

375 

380 

AL" 

390 



+ 1 
260 

I 



'SCORE PARCIAL 



PR 



NEXT 
HOME 

PRINT 
: PRINT 

FOR I - 1 TO N 
PRINT H3CI) ;H(I) .ASCI) :A{I 

NEXT I 

PRINT "APERTE QUALQUER TEC 



GET G3 

HOME 

PRINT 

PRINT 
FOR I ■ 



TAB( 13} : "SCORE FIN 

PRINT 

1 TO N 

400 FB(I) - H(I) + H{N + I) 
410 FA(I) - A(I) + A(N + I) 
420 PRINT HSd) ;FH(I) ,AS(I) ;FA 
(I) 



430 NEXT 

440 PRINT : INPUT "OUTBA VE2 C 

S/N) 'iPS 

450 IF P3 - "N" THEN END 

460 INPUT "MESMOS TIMES tS/NJ 

";G3 

470 IF GS = "N" THEN 70 

460 GOTO ISO 

Q 

20 DIM A3(25] ,H$C2S) .H(SO) ,A(50 

),FA(25) ,FH(25) 

30 CLS 

SO PRINT eilp'placar final' 

60 PRINT: PRINT 

70 INPUT'QUANTAS PART I DAS (1-25 

) " ' N 

80 FOR I-l TO N 

90 PRINT"PART1DA ";I 

100 INPUT'TIME DA CASA "jHSd) 

110 INPUT-VISITANTE "jASClJiPRI 

NT 

120 NEXT I 

130 FOR U-1 TO 2000: NEXT V 

140 PRINT 

150 FOR I»l TO 2*N 

160 C»=0:T-1 

170 S=EXP(-.85) 

180 T»'T*RND(0) 

190 IF T<-S THEN H (I ) -C:GOTO220 

200 C'C+l 

210 GOTO 180 

220 NEXT I 

230 FOR 1-1 TO 2«N 

240 C-0:T-1 

250 S-EXP(-.5) 

260 T-T*RNDCO) 

270 IF TC=S THEN A (I) "C;GOTO30O 

280 C-C+l 

290 GOTO 260 

300 NEXT I 

310 CLS 

320 PRINT €5."placcir primeiro t 

mmpa" : PRINT: PRINT 

330 FOR r-1 TO N 

340 PRINT HSd) ;H(I) :A3(I) ;ACI) 

350 NEXT I 

360 PRINT" QUALQUER TECLA PARA 

CONTINUAH" 

370 IF INKEYS-"" THEN 370 

375 CLS 

380 PRINT eiO,-placar final" ;PR 

INT: PRINT 

390 FOR I-l TO N 

400 FH(I)-H(I}+H(N+I) 

410 FA(I)-AtI)+A(N+I) 

420 PRINT HSd) iFH(I) .AS(I) ;FAC 

I) 

430 NEXT 

440 PRINT: INPUT'NOVAMENTE (S/N 

) ';G5 

450 IF GS-'N" THEN END 

460 INPUT"HESMOS TIMES (S/N) " 

iP3 

470 IF PS-''N* THEN 70 

480 GOTO ISO 

Da linha 20 a 120 o programa solici- 
ta as informa^des iniciais. Para evitar 
muita digitacao, podemos substituir os 
nomes dos times pjor letras. As linhas 
150 a 300 usam o algoritmo de Poisson, 



identico ao do programa anterior, para 
gerar os resultados parciais e Hnats dos 
jogos. As linhas 320 a 350 cuidam da 
safda dos resultados parciais e as linhas 
390 a 430, dos resultados finais, 

A simula^ao de Poisson funciona 
bem com varidveis disaetas. Algumas 
vezes, por^m, precisamos utilizar varid- 
veis fracionirias ou continuas. Em uma 
simula^ao de competi^ao de salto em 
distancia, por exemplo. podemos obter 
uma medida qualquer entre sete e nove 
metros — o comprimento do salto e 
uma vari^vel aleatt^ria, continua. 

Embora a fungSo RND seja adequa- 
da para simula<;5es de Poisson com nu- 
rneros inteiros, serd necessdrio modified- 
la um pouco para utilizi-la com varid- 
veis continuas. O quadro da pdgina 1 180 
compara as distribuiijoes obtidas com os 
dois lipos de varidvets: varidveis discre- 
tas resultam em distrtbui^des unj/brmes, 
enquanto varidveis continuas resultam 
em distribui(;6es exponenciais e distri- 
buifoes normals. 

Digite o proximo programa para 
trans formar os niimeros aleatbrios uni- 
formemente distribuidos, criados pela 
fun(;ao RND do computador, em niime- 
ros distribuidos exponencialmente. 



10 BORDER 0: INK 7: PAPER 0: 

CLS 

20 POKE 23658,0 

30 PRINT AT 0,4; INVERSE 1;" 

SIMULACAO EXPONENCIAL " ' ' 

SO INPUT "QUAL E VALOR MEDI 

O 7 " ;a 

70 INPUT 'TAHANHO DA AMOSTHA 

? "tn 

80 FOR i-l TO n 

90 LET x=f-a)*LM (RND*!): LET 

y-INT (x*10) : PRINT " "; 

.i*y. 

100 NEXT i 

110 INPUT - OOTRA SIMULACAO (b 

/n) 7 -;oS 

120 IF qS-"s" THEN GOTO 30 

130 STOP 



m 



10 R-RNDC-TIME) 

30 CLS: WIDTH 40 

4Q PRINT TAB{S) i "Sinulacio expo 

nenc i al " ; PRINT : PRINT 

50 INPUT "Qual o valor da mtidia 

":A 

60 PRINT 

70 INPUT "Taisariho da aBoatra'sN 

BO FOR I-l TO N 

90 X-t-A)*LOG(RND(l)) !ir-lNT(X«l 

OJ: PRINT LEFTS (9TR3{Y/10)+* 

".8) i 
100 NEXT I 

110 PRINT:INPUT "OUtra V«l (S/N 
)"!G3 



120 


IF GS- 


"S" THEN 


30 




130 


END 








LM. 


L^ 




30 


HOME 








40 


PRINT 


TAB( 7) 


•SIMULACAO E 


XPONENCIAL 


" : PRINT 


: PRINT 




50 


INPUT 


-QUAL VALOR DA 


MEDI 


A - 


h 








60 


PRINT 








70 
iN 

BO 


INPUT 


"TAMANHO 


DA AM03TRA " 


FOR I 


- 1 TO N 






90 X - ( - 


AJ * LOO ( RND 


(IJ) 


:Y ■ 


■ INT 


(X * 10) : 


PRINT 


LEFT 


S ( 

)i 

100 


STR$ (Y / 10) -t 


<* 


'.8 


NEXT 


1 






110 


PRINT 


: INPUT 


■OUTRA SIMUL 


ACAO (3/N) 


"103 






120 


IF G$ 


- -S" THEN 30 




130 


END 









Q 



30 CLS 

40 PRINT S5 , "slmulacao exponenc 

ial" :PHINT:PRINT 

50 INPUT'QUAL E O VALOR MEDIO " 

;A 

60 PRINT 

70 INPUT'TAMANHO DA AMOSTRA ";N 

80 FOR 1-1 TO N 

90 X=(-A)*LOG(RNDC0)) :y=INT{X*l 

0):PRINT LEFTS CSTRS(Y/10)+'* 

",8) I 
100 NEXT I 
110 PRINT :INPUT"OUTRA SIMULACAO 

(S/N) "iG3 
120 IF GS-"S" THEN 30 
130 END 

Devemos informal ao programa, as- 
sim que o executamos, o vaJor da m^- 
dia. Feito isso, os vaJores da amostra 
sao exibidos. A linha 90 realiza toda a 
tarefa, utilizando um recurso matemd- 
tico chamado mitodo da iransforma^do 
inversa, para mudai a distribuicao das 
varidveis. Esse programa pode ser usa- 
do para simular, por exemplo, o tempo 
de espera em um lava-rdpido ou a du- 
ra(;ao das reservas de combustlvel em 
um jogo espacial. Em ambos os casos, 
o tempo decorrido i o elemento central. 



DtSTRieUlCAO NORMAL 



A curva normal i o tipo mais conhe- 
cido de distribuicao estatistica. Tern nu- 
merosas aplica^oes, descrevcndo toda 
esp^cie de fendmeno natural — como a 
estatura e o peso de homens adultos. 
Alem disso, constitui o meio mais apro- 
priado para a representai^o de uma dis- 
tribuigSo de erros. 

Como exemplo do uso da distribui- 
cao normal em um modelo, considere- 
mos esta situacdo: as vendas (S) de uma 
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empresa dependem de um valor-base 
(So) e do total gasto em propaganda (A). 
A rela^ao poderia ser resumida na ex- 
pressao S = So + (B*A) + desvio nor- 
mal, onde B 6 uma constante conhecida. 
Digite programa a seguir para ver 
como funcicna. 



10 BOBDEB 0: PAPER 0: INK 7; 

CLS 

20 DIM utSO) : DIM y(50) : DIM 

zt50) 

50 PRINT AT 0,7[ INVERSE 1;" 

SIMULACAO NORMAL " ' ' 

60 INPUT " QUAL E UALOH MED 

10 ? "sa 

70 INPUT " QUAL E VALOR MIN 

IMO ? "im 

80 INPUT " TAMANHO DA AHOSTRA 

? "in 
90 LET b-<3-in}/Z.5 



100 rOR i-1 TO n 

110 LET t-0 

120 FOB j"l TO 16 

130 LET y(j)=RND*l 

140 LET t-t+y(j) : NEXT j 

150 LET u{i)-(<t/15}-.5)/SQR ( 

I/tl2«155) 

160 LET z ti)=a+tb*u(i) ) 

170 LET p-INT (10*a;(l)): PRINT 

-;.1*P, 
160 NEXT I 
190 INPUT ~ OUTRA AMOSTRA ? " i 

qS 

200 IF gS="a" THEN GOTO 50 

210 STOP 
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'Qual o valor da m^dla 
•Qua! o valor mfniao" ; 
'TajBanho da amostra'iN 



10 R-RND(-TIME) 

30 CLS: WIDTH 40 

40 DIM U(50) .Y(50> .Z(S0) 

50 PRINT "Sinula^ao nor»al":PRI 

NT: PRINT 

60 INPUT 

" "A 

70 INPUT 

M 

80 INPUT 

90 B=tA-M)/2.5 

100 FOR I-l TO N 

110 T-0 

120 FOR J-1 TO 15 

130 Y{J)-RND(1) 

140 T-T+YCJ) :NEXT J 

150 U{I)=C(T/15>-.5)/3QR(l/ £12* 

15)) 

160 2(I}>A+(B*U{IH 

170 P=INtC10*Z(I)) :PRINT LEFTS ( 

STR5CP/10)+' ".6] ; 

180 NEXT I 

190 PRINTS INPUT"Outra amostra'; 

200 IF GS-"S" THEN 50 
210 END 
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INPUT "TAMANHO DA AMOSTRA 
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30 HOME 

40 DIM 0(50) ,Y{50) ,Zt50) 

50 PRINT TABt 9) i "DISTHIBUICA 

O NORMAL" : PRINT : PRINT 

60 INPUT "QUAL VALOR DA MEDI 

A * ; A 

70 INPUT "QUAL O VALOR MINIMO 

":M 

eo 
;N 

90 B - (A - M) 
100 FOR I » 1 TO N 
110 T-0 

120 FOR J - 1 TO 15 
130 ir(J) - RND (IJ 
140 T - T + Y(J} : NEXT 
150 U{I) - (tT / 15) - 
QR CI / (12 * 15)) 
160 Zll) - A + (B * U(I)) 
170 P - INT (10 « 2(1)) : 
LEFTS ( STBS (P / 10) + 
IV 31f ■ 

180 NEXT I 

190 PRINT : INPUT "OUTRA 

TRA {S/N> "iGS 

200 IF GS = 'S" THEN 50 

210 END 
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CLS 

DIM U{50) .Y(50) .Z(50) 

PRINT §7,"distr ibuicao noriea 

PRINT: PRINT 

INPUT"QUAL E O VALOR MEDIO " 

INPUT'QUAL E VALOR MINIMO 

INPUT"TAMANHO DA AMOSTRA ";N 
B- (A-M) /2.5 

FOR I-l TO N 

T = , 

FOR J=l TO 15 

y (J)=RND(0) 

T=T+Y(J) :NEXT J 

UCI)-((T/15)-.5)/SQR{l/[12* 

) 

Za)-A+(B*Utl) } 

P=INT(10*Z(I) ) :PRINT LEFTSt 
$(P/10)+" ".S) I 

NEXT I 

PRINT: INPUT "OUTRA AMOSTRA " 

IF G$-"S" THEN 50 
END 



Execute o programa e fornefa o va- 
lor m^dio e o valor minimo, bem como 
o tamanho da amostra. Tecnicameme, 
o iniervalo de uma distribui^ao normal 
e infinito, o que deixa uma chance mui- 
10 pequena de se obter um valor menor 
que o mfnimo especificado. 

As linhas 120 a 150 usam a fungao 
RND para criar quinze numeros entre 
Gel, somando-os em seguida. A linha 
160 calcula a media e o fator de escala. 
Depois de ter side escalonado. o resul- 
tado e impresso. 

Para maior clareza, poder^ ser udl 
criar duas distribuigoes com a mesma 
mMta e aproximadamente o m.esmo in- 
tervalo, mas com formatos diferentes. 
Execute o programa e fornega os valo- 
res 1 00 para a m^dia, 50 para o minimo 
e 40 para o tamanho da amostra. Se os 
valores obtJdos fossem plotados, teria- 
mos um grdfico semeihante ao da figu- 
ra C (quadro da pagina 1180). 

Agora, apague a linha 90 e as linhas 
120 a 160, Subslitua a linha 1 10 pela se- 
guinte: 

110 Z(I)-M+RND(1) ■2* tA-M) 

No TRS-Color, use RND (0) no lu- 
gar de RND <1). 

Com essas alterafoes, a distribuicao 
normal 6 convcrtida em distribiii(;ao uni- 
forme. Execute o programa novamente 
e entre os valores especificados, compa- 
rando os resultados. Desta vez, os va- 
lores levariam a um grafico como o da 
figura A tpdgina 1180). 

Observe que a simulapao normal acu- 
mula maior niimero de resultados pr6- 
ximos k media. 
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^ UNHA 


FABRICANTE 


MOOELO 
Thor2010 


' FABWCANTE 


MODELO 


PAIS 




Apple 11 + 


Appletronica 


Appletronica 


Ttior2010 


Brasll 


Apple 11 + 


Apple n-»^ 


CCE 


MC-4000Exato 


Apply 


Apply 300 


Brasii 


Sinclair ZX-81 


: Apple 11 + 


CPA 


Absolutus 


CCE 


MC-4000 Exato 


Brasii 


A'pplell + 


Apple 11 + 


CPA 


Polaris 


CPA 


Absolutus 


Brasii 


Apple 11 + 


Apple 11 + 


Digitus 


DGTAP 


CPA 


Polaris 


Brasll 


Apple 11 + 


Apple II + 


Dismac 


D-6100 


Codlmex 


CS-6508 


Brasll 


TRS-Color 


Apple 11 + 


ENIAC 


ENIAC 11 


Digitus 


OGT-100 


Brasll 


TRS-80 Mod.HI 


Apple 11 + 


Franklin 


Franklin 


Digitus 


DGT-1000 


Brasii 


TRS-aO Mod.lli 


Apple 11+ 


Houston 


Houston AP 


Digitus 


DGTAP 


Brasii 


Apple 11 + 


Apple 11 + 


Magnex 


DM II 


Dismac 


O-8000 


Brasll 


TRS-80 Mod. 1 


Apple 11 + 


Maxltronica 


MX2001 


Dismac 


D-8001/2 


Brasii 


TRS-BO Mod. 1 


Apple 11 + 


Maxitronica 


MX-48 


Dismac 


D-8100 


Brasll 


Apple 11 + 


Apple tl+ 


Maxilronjca 


MX-64 


Dynacom 


MX-1600 


Brasll 


TRS-Color 


W Apple 11 + 


Maxitronica 


MaxltronicI 


ENIAC 


ENIAC li 


Brasii 


Apple 11 + 


2 Apple H + 


Microcralt 


CrafllPlus 


Engebras 


AS-1000 


Brasii 


Sinclair ZX-BI 


uV Apple 11+ 


Mllmar 


Apple II Plus 


Filcres 


NEZ-SOOO 


Brasii 


Sinclair ZX-81 


1 Apple 11 + 


Mllmar 


Apple Master 


Franklin 


Franklin 


USA 


Apple 11 + 


': Apple If + 


Milmar 


Apple Senior 


Gradiente 


Expert GPC1 


Brasll 


MSX 


Apple 11 + 


Omega 


MC-400 


Houston 


Houston AP 


Brasii 


Apple 11 + 


Apple 11 + 


Polymax 


Maxxi 


Kemltron 


NajaSOO 


Brasll 


TRS-60 Mod.lli 


Apple 11 + 


Polymax 


Poly Pius 


LNW 


LNW-80 


USA 


TRS-80 Mod. 1 


Apple 11 + 


Spectrum 


MIcroengenhol 


LZ 


Color 64 


Brasii 


TRS-Color 


Apple 11 + 


Spectrum 


Spectrum ed 


Magnex 


DM II 


Brasii 


Apple 11 + 


Apple 11 + 


Su porta 


Venus II 


Maxitronica 


MX-2D01 


Brasii 


Apple 11 + 


Applelt + 


Sycomig 


SIC! 


Maxitronica 


MX-48 


Brasii 


Apple 11 + 


Apple 11 + 


Unltron 


APII 


Maxitronica 


MX-64 


Brasii 


Apple 11 + 


Apple 11 + 


Victor do Brasil 


ElppallPlus 


Maxitronica 


Maxitronic 1 


Brasii 


Apple 11 + 


Apple 11 + 


Victor do Bras!! 


Elppa Jr. 


Microcraft 


Craft II Plus 


Brasii 


Apple 11 + 


Apple He 


Microcraft 


Craft He 


Microcraft 


Caltlle 


Brasii 


Apple He 


Apple He 


Microdigital 


TK-3000lle 


Microdigital 


TK-3000lle 


Brasii 


Apple Me 


Apple He 


Spectrum 


Microengenholl 


Microdigital 


TK-82C 


Brasll 


Sinclair ZX-81 


USX 


Gradiente 


Expert GPC-1 


Microdigital 


TK-e3 


Brasii 


Sine lair ZX-81 


MSX 


Sharp 


HotbltHB-8000 


Microdigital 


TK-as 


Brasll 


Sinclair ZX-81 


Sinclair Spectrum 


Microdigital 


TK-90X 


Microdigital 


TK-90X 


Brasll 


Sinclair Spectrum 


Sinctaif Spectrum 


Timex 


Timex 2000 


Microdigital 


TKS-800 


Brasf) 


TRS-Color 


Sinclair ZX-81 


Apply 


Apply 300 


Milmar 


Apple II Plus 


Brasll 


Apple n + 


Sinclair ZX-81 


Engebras 


AS-1000 


MHmar 


Apple Master 


Brasii 


Apple 11 + 


Sinclair ZX-81 


Fllcres 


NEZ-8000 


Milmar 


Apple Senior 


Brasii 


Apple 11 + 


Sinclair ZX-81 


Microdigital 


TK-82C 


Multix 


MX-Compacto 


Brasii 


TRS-80 Mod.lV 


Sinclair ZX-81 


Microdigital 


TK-83 


Omega 


MC-400 


Brasll 


Apple 11 + 


Sinclair ZX-81 


Microdigital 


TK-85 


Polymax 


Maxxl 


Brasll 


Apple 11+ ^ 


SinclalrZX-ei 


Prologica 


CP-200 


Polymax 


Poly Plus 


Brasll 


Apple 11 + 


Sinclair ZX-81 


nitas 


Ringo n-470 


Prologica 


CP-200 


Brasii 


Sinclair ZX-SI 


Sinclair ZX-81 


Timex 


Timex 1000 


Prologica 


CP-300 


Brasll 


TRS-aO Mod.lli 


Sinclair ZX81 


Timex 


Timex 1500 


Prologica 


CP-400 


Brasii 


TRS-Color 


TRS-80 IVIod. 1 


Dismac 


D-8000 


Prologica 


CP-500 


Brasii 


TRS-aoMod.lM 


TRS-80 Mod. 1 


Dismac 


D-8001/2 


Ritas 


RlngoR-470 


Brasii 


Sinclair ZX-81 


TR5-80 Mod. 1 


LNW 


LNW-30 


Sltarp 


Hotbit H8-800C 


Brasii 


MSX 


TRS-80 Mod. 1 


Video Genie 


Video Genie 1 


Spectrum 


Microengenho 


1 Brasii 


Apple 11 + 


TRS-80 Mod.lll 


Digitus 


DGT-100 


Spectrum 


Microengenho 


11 Brasii 


Apple Me 


TRS-80 Mod.lH 


Digitus 


DGT-1000 


Spectrum 


Spectrum ed 


Brasii 


Apple H + 


TRS-80 Mo<t.lll 


Kemltron 


NajaSOO 


Suporte 


Venus 11 


Brasll 


Apple 11 + 


TRS-80 Mod.lH 


Prologica 


CP-300 


Sycomig 


SICI 


Brasii 


Apple 11 + 


TRS 80 Mod.lH 


Prologica 


CP-500 


Sysdata 


Sysdata III 


Brasll 


TRS-BO Mod.lli 


TRS 80 Mod.lH 


Sysdata 


Sy$daialll 


Sysdata 


Sysdata IV 


Brasii 


TRS-80 Mod.lV 


TFtS-80 Mod.lli 


Sysdata 


Sysdata Jr. 


Sysdata 


Sysdata Jr. 


Brasii 


TRS-BO Mod.lll 


TflS80Mod.IV 


Multix 


MX-Compacto 


Timex 


Timex 1000 


USA 


Sinclair ZX-81 


TRS-80 Mod.lV 


Sysdata 


Sysdata IV 


Timex 


Timex 1600 


USA 


Sinclair ZX-81 


TflS-Color 


Codlmex 


CS-6508 


Timex 


Timex 2000 


USA 


Sinclair Spectrum 


TRS-Color 


Dynacom 


MX-1600 


Unitron 


APH 


Brasii 


Apple 11 + 


TRS-Color 


LZ 


Color 64 


Victor do Brasll 


Elppa 11 Plus 


Brasll 


Apple 11 + 


TRS-Color 


Microdigital 


TKS-800 


Victor do Brasii 


Elppa Jr. 


Brasll 


Apple 11 + 


TRS-Color 

w 


Prologica 

■ m 


CP-400 


Video Genie 


Video Genie 1 


USA 


TRS-ao Mod. 1 


INPUT foi especialmente projetado para 
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microcomputadores compatlveis com as sete principals ^^J Sinclair zx-si 


H-H TRS-80 L 


^ 1 TK 2000 


flhrimx 




linhas existentes no mercado. 

Os blocos de texlos e listagens de programas aplicados ^^^ 






Stuntto emblefiM ftir seguido de uma 
m», entSo lanto ■> teulo como as 
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.apeoas a determinadas linhas de micros podem ser 
ioentificados por meio dos seguintes sfmbolos: 


^mm 


■ ■ 


m 


progTMtas que u 
espklncos pira i 


sesuem passim a ser 
rmna indlcada. . 


MHMI Spectrum 


■Ui TRS-Color L 


■LI Apple II 



PROGRAMACAO BASIC 

Simulagao do balango de uma empress. Variaveis 
de distribuipao normal. Mercado. Controle de caixa. 

PER1FERIC0S 

Funcionamento do videotexto. Informacoes e services 
Conexao ao microcomputador. Compatibilidade, 

PROGRAMACAO BASIC 

Desenhos em tres dimensoes. Construcao do perfil. 
Come alterar o angulo de visao. Rotacao da figura. 

cOdigo de maquina 

Avalanche: acrescente ao programa a rotina 
que faz Willie sattar a frente. 
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